library("XLConnect") library(lpSolve) setwd("E:/Youngjune Kim/Research/Partial Equilibrium/w (NBAF Updated Land)") #baseyear baseyear <- 2009 # from 2009 to 2020 ########################################################### #need to check ewesreplacement <- c(0) directcorn <- c(0) loanratecorn <- c(0) targetcorn <- c(0) MLAcorn <- c(0) MLAsoybeans <- c(0) ########################################################### #Forage Foragedata <- c(180, 0.00, 96.56, 83.44, 104.87) # type the data on the FFL tap here #Import dataset model <- loadWorkbook("Model1.xls") beef <- loadWorkbook("beef.xls") birds <- loadWorkbook("Birds.xls") broiler <- loadWorkbook("Broiler.xls") cattle <- loadWorkbook("Cattle.xls") coarsegrains <- loadWorkbook("CoarseGrains.xls") dairy <- loadWorkbook("Dairy.xls") eggs <- loadWorkbook("Eggs.xls") milk <- loadWorkbook("Milk.xls") pork <- loadWorkbook("Pork.xls") poultrymeat <- loadWorkbook("Poultrymeat.xls") rice <- loadWorkbook("Rice.xls") sheeplambmeat <- loadWorkbook("Sheep&Lambmeat.xls") sheep <- loadWorkbook("sheep.xls") soybeans <- loadWorkbook("Soybeans.xls") soymeal <- loadWorkbook("Soymeal.xls") soyoil <- loadWorkbook("Soyoil.xls") swine <- loadWorkbook("Swine.xls") wheat <- loadWorkbook("wheat.xls") shocks <- loadWorkbook("shocks.xls") #Elast retailelasticity <- readWorksheet(model, sheet = "Elast", region = "C4:L13", header=FALSE) stockelasiticity <- readWorksheet(model, sheet = "Elast", region = "B27:N27", header=FALSE) substitutionelasticity <- readWorksheet(model, sheet = "Elast", region = "B37:J52", header=FALSE) tradeelasticity <- readWorksheet(model, sheet = "Elast", region = "M37:N53", header=FALSE) soybeancrush <- readWorksheet(model, sheet = "Elast", region = "P37:P37", header=FALSE) otherelasticity <- readWorksheet(model, sheet = "Elast", region = "E62:E83", header=FALSE) #shocks uspopulation <- readWorksheet(shocks, sheet = "Output", region = "D12:D27", header=FALSE, useCachedValues=TRUE) animalremoval <- readWorksheet(shocks, sheet = "Output", region = "E12:AI27", header=FALSE, useCachedValues=TRUE) consumerfear <- readWorksheet(shocks, sheet = "Output", region = "AJ12:AS27", header=FALSE, useCachedValues=TRUE) exogenousinput <- readWorksheet(shocks, sheet = "Output", region = "AT12:BF27", header=FALSE, useCachedValues=TRUE) primaryfactor <- readWorksheet(shocks, sheet = "Output", region = "BG12:BT27", header=FALSE, useCachedValues=TRUE) specificintervention <- readWorksheet(shocks, sheet = "Output", region = "D40:AM55", header=FALSE, useCachedValues=TRUE) multipleshock <- readWorksheet(shocks, sheet = "Output", region = "AN40:BW55", header=FALSE, useCachedValues=TRUE) tradepolicyelas <- readWorksheet(shocks, sheet = "Output", region = "BX40:DG55", header=FALSE, useCachedValues=TRUE) commoditypolicy <- readWorksheet(shocks, sheet = "Output", region = "D70:V85", header=FALSE, useCachedValues=TRUE) expectedreturn <- readWorksheet(shocks, sheet = "Output", region = "W70:AF85", header=FALSE, useCachedValues=TRUE) retailwholesale <- readWorksheet(shocks, sheet = "Output", region = "AG70:AP85", header=FALSE, useCachedValues=TRUE) cropdisease <- readWorksheet(shocks, sheet = "Output", region = "AQ70:AX85", header=FALSE, useCachedValues=TRUE) #Policy farmpolicy <- readWorksheet(shocks, sheet = "Policy", region = "D70:v85", header=FALSE) #lagged lagged <- matrix(c(rep(0, each=52))) #FFL Feedbalance <- readWorksheet(model, sheet = "FFL", region = "E4:H9", header=FALSE) ForageSU <- readWorksheet(model, sheet = "FFL", region = "D20:H20", header=FALSE) Forageshare <- readWorksheet(model, sheet = "FFL", region = "D25:K25", header=FALSE) landfactor <- readWorksheet(model, sheet = "FFL", region = "D31:J31", header=FALSE) landfactorcont <- readWorksheet(model, sheet = "FFL", region = "D37:J37", header=FALSE) landcost <- readWorksheet(model, sheet = "FFL", region = "D42:J42", header=FALSE) #beef beefgen <- readWorksheet(beef, sheet = "Output", region = "D12:M27", header=FALSE, useCachedValues=TRUE) beefshare <- readWorksheet(beef, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #birds birdsgen <- readWorksheet(birds, sheet = "Output", region = "D12:F27", header=FALSE, useCachedValues=TRUE) birdsshare <- readWorksheet(birds, sheet = "Output", region = "D40:U55", header=FALSE, useCachedValues=TRUE) #broiler broilergen <- readWorksheet(broiler, sheet = "Output", region = "D12:M27", header=FALSE, useCachedValues=TRUE) broilershare <- readWorksheet(broiler, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #cattle cattlegen <- readWorksheet(cattle, sheet = "Output", region = "D12:AC27", header=FALSE, useCachedValues=TRUE) cattleshare <- readWorksheet(cattle, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #coarsegrains coarsegrainsgen <- readWorksheet(coarsegrains, sheet = "Output", region = "D12:AC27", header=FALSE, useCachedValues=TRUE) coarsegrainsshare <- readWorksheet(coarsegrains, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #dairy dairygen <- readWorksheet(dairy, sheet = "Output", region = "J12:AB27", header=FALSE, useCachedValues=TRUE) dairyshare <- readWorksheet(dairy, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #eggs eggsgen <- readWorksheet(eggs, sheet = "Output", region = "D12:N27", header=FALSE, useCachedValues=TRUE) #milk milkgen <- readWorksheet(milk, sheet = "Output", region = "D12:P27", header=FALSE, useCachedValues=TRUE) #pork porkgen <- readWorksheet(pork, sheet = "Output", region = "D12:M27", header=FALSE, useCachedValues=TRUE) porkshare <- readWorksheet(pork, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #poultrymeat poultrymeatgen <- readWorksheet(poultrymeat, sheet = "Output", region = "D12:M27", header=FALSE, useCachedValues=TRUE) poultrymeatshare <- readWorksheet(poultrymeat, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #rice ricegen <- readWorksheet(rice, sheet = "Output", region = "D12:M27", header=FALSE, useCachedValues=TRUE) riceshare <- readWorksheet(rice, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #sheeplambmeat sheeplambmeatgen <- readWorksheet(sheeplambmeat, sheet = "Output", region = "D12:M27", header=FALSE, useCachedValues=TRUE) sheeplambmeatshare <- readWorksheet(sheeplambmeat, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #sheep sheepgen <- readWorksheet(sheep, sheet = "Output", region = "J12:AE27", header=FALSE ,useCachedValues=TRUE) sheepshare <- readWorksheet(sheep, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #soybeans soybeansgen <- readWorksheet(soybeans, sheet = "Output", region = "D12:M27", header=FALSE, useCachedValues=TRUE) soybeansshare <- readWorksheet(soybeans, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #soymeal soymealgen <- readWorksheet(soymeal, sheet = "Output", region = "E12:L27", header=FALSE, useCachedValues=TRUE) #soyoil soyoilgen <- readWorksheet(soyoil, sheet = "Output", region = "E12:L27", header=FALSE, useCachedValues=TRUE) #swine swinegen <- readWorksheet(swine, sheet = "Output", region = "D12:Y27", header=FALSE, useCachedValues=TRUE) swineshare <- readWorksheet(swine, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #wheat wheatgen <- readWorksheet(wheat, sheet = "Output", region = "D12:M27", header=FALSE, useCachedValues=TRUE) wheatshare <- readWorksheet(wheat, sheet = "Output", region = "D40:L55", header=FALSE, useCachedValues=TRUE) #Loop valuesmat <- matrix(nrow = 57, ncol=16) for(i in 1:16){ #Coefficents #Market clearing beef row53 <- c(beefgen[i,4]*(beefshare[i,1]*substitutionelasticity[1,1]+beefshare[i,3]*substitutionelasticity[1,2]), beefgen[i,5]*tradeelasticity[1,2]-beefgen[i,3]*retailelasticity[1,1]*(beefgen[i,9]/beefgen[i,10])+stockelasiticity[1,1]*beefgen[i,8]-beefgen[i,6]*tradeelasticity[1,1], -beefgen[i,4]*beefshare[i,3]*substitutionelasticity[2,1], 0, -beefgen[i,3]*retailelasticity[1,8]*milkgen[i,9]/milkgen[i,10], 0, 0, -beefgen[i,3]*retailelasticity[1,2]*porkgen[i,9]/porkgen[i,10], 0, 0, -beefgen[i,3]*retailelasticity[1,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10], 0, -beefgen[i,3]*retailelasticity[1,10]*eggsgen[i,9]/eggsgen[i,10], 0, -beefgen[i,3]*retailelasticity[1,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100), 0, -beefgen[i,3]*retailelasticity[1,7], -beefgen[i,3]*retailelasticity[1,9], rep(0, each=23), -beefgen[i,3]*retailelasticity[1,6], rep(0, each=6), -beefgen[i,3]*retailelasticity[1,5], rep(0, each=8)) #Cattle market clearing row54 <- c((as.numeric(cattlegen[i,16])+cattlegen[i,2]+cattlegen[i,3]+dairygen[i,9]-cattlegen[i,7])*substitutionelasticity[1,2], 0, +((cattlegen[i,2]+cattlegen[i,3])*tradeelasticity[5,1]-cattlegen[i,7]*tradeelasticity[5,2]), 0, 0, -dairygen[i,9], rep(0, each=51)) #Zero profit milk row55 <- c(0, 0, 0, -dairyshare[i,9], 1, rep(0, each=23), -dairyshare[i,8], rep(0, each=6), -dairyshare[i,7], rep(0, each=5), -dairyshare[i,6], rep(0, each=6), -dairyshare[i,5], rep(0, each=8)) #market clearing milk row56 <- c(0, -milkgen[i,13]*retailelasticity[8,1]*beefgen[i,9]/beefgen[i,10], 0, -milkgen[i,4]*(dairyshare[i,9]-1), milkgen[i,5]*tradeelasticity[8,2]-milkgen[i,13]*retailelasticity[8,8]*milkgen[i,9]/milkgen[i,10]-milkgen[i,6]*tradeelasticity[8,1]+milkgen[i,8]*stockelasiticity[1,11], 0, 0, -milkgen[i,13]*retailelasticity[8,2]*porkgen[i,9]/porkgen[i,10], 0, 0, -milkgen[i,13]*retailelasticity[8,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10], 0, -milkgen[i,13]*retailelasticity[8,10]*eggsgen[i,9]/eggsgen[i,10], 0, -milkgen[i,13]*retailelasticity[8,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100), 0, -milkgen[i,13]*retailelasticity[8,7], -milkgen[i,13]*retailelasticity[8,9], rep(0, each=10), -milkgen[i,4]*substitutionelasticity[8,7]*dairyshare[i,8], rep(0, each=6), -milkgen[i,4]*substitutionelasticity[8,6]*dairyshare[i,7], rep(0, each=5), -(milkgen[i,4]*substitutionelasticity[8,4]*dairyshare[i,6]+milkgen[i,13]*retailelasticity[8,6]), rep(0, each=6), -(milkgen[i,4]*(as.numeric(substitutionelasticity[8,3])*(1-dairyshare[i,9])-dairyshare[i,1]*substitutionelasticity[8,1]-dairyshare[i,6]*substitutionelasticity[8,4]-dairyshare[i,7]*substitutionelasticity[8,6]-dairyshare[i,8]*substitutionelasticity[8,7])+milkgen[i,13]*retailelasticity[8,5]), rep(0, each=8)) #Dairy slaughter row57 <- c(rep(0, each=5), dairygen[i,9], rep(0, each=51)) #Zero profit pork row58 <- c(rep(0, each=6), -porkshare[i,9], 1, -porkshare[i,3], rep(0, each=48)) #market clearing pork row59 <- c(0, porkgen[i,3]*retailelasticity[2,1]*beefgen[i,9]/beefgen[i,10], 0, 0, porkgen[i,3]*retailelasticity[2,8]*milkgen[i,9]/milkgen[i,10], 0, -porkgen[i,4]*(porkshare[i,1]*substitutionelasticity[2,1]+porkshare[i,3]*substitutionelasticity[2,2]), porkgen[i,3]*retailelasticity[2,2]*porkgen[i,9]/porkgen[i,10]+porkgen[i,6]*tradeelasticity[2,1]-porkgen[i,8]*stockelasiticity[1,2]-porkgen[i,5]*tradeelasticity[2,2], porkgen[i,4]*porkshare[i,3]*substitutionelasticity[2,2], 0, porkgen[i,3]*retailelasticity[2,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10], 0, porkgen[i,3]*retailelasticity[2,10]*eggsgen[i,9]/eggsgen[i,10], 0, porkgen[i,3]*retailelasticity[2,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100), 0, porkgen[i,3]*retailelasticity[2,7], porkgen[i,3]*retailelasticity[2,9], rep(0, each=23), porkgen[i,3]*retailelasticity[2,6], rep(0, each=6), porkgen[i,3]*retailelasticity[2,5], rep(0, each=8)) #market clearing hogs row60 <- c(rep(0, each=6), swinegen[i,15]*substitutionelasticity[2,2], 0, (swinegen[i,9]*tradeelasticity[6,1]-swinegen[i,6]*tradeelasticity[6,2]), rep(0, each=48)) #zero profit poultry meat row61 <- c(rep(0, each=9), -birdsshare[i,18], 1, rep(0, each=24), -birdsshare[i,16], rep(0, each=5), -birdsshare[i,15], rep(0, each=6), -birdsshare[i,14], rep(0, each=8)) #market clearing poultry meat row62 <- c(0, poultrymeatgen[i,3]*retailelasticity[3,1]*beefgen[i,9]/beefgen[i,10], 0, 0, poultrymeatgen[i,3]*retailelasticity[3,8]*milkgen[i,9]/milkgen[i,10], 0, 0, poultrymeatgen[i,3]*retailelasticity[3,2]*porkgen[i,9]/porkgen[i,10], 0, poultrymeatgen[i,4]*as.numeric(substitutionelasticity[7,3])*(1-birdsshare[i,18]), poultrymeatgen[i,6]*tradeelasticity[3,1]-poultrymeatgen[i,6]*tradeelasticity[3,2]+poultrymeatgen[i,3]*retailelasticity[3,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10]-poultrymeatgen[i,8]*stockelasiticity[1,3], 0, poultrymeatgen[i,3]*retailelasticity[3,10]*eggsgen[i,9]/eggsgen[i,10], 0, poultrymeatgen[i,3]*retailelasticity[3,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100), 0, poultrymeatgen[i,3]*retailelasticity[3,7], poultrymeatgen[i,3]*retailelasticity[3,9], rep(0, each=17), poultrymeatgen[i,4]*birdsshare[i,16]*substitutionelasticity[7,6], rep(0, each=5), poultrymeatgen[i,3]*retailelasticity[8,6]+poultrymeatgen[i,4]*birdsshare[i,15]*substitutionelasticity[7,4], rep(0, each=6), poultrymeatgen[i,3]*retailelasticity[3,5]-poultrymeatgen[i,4]*(birdsshare[i,10]*substitutionelasticity[7,1]+(birdsshare[i,18]-1)*as.numeric(substitutionelasticity[7,3])+birdsshare[i,15]*substitutionelasticity[7,4]+birdsshare[i,16]*substitutionelasticity[7,6]), rep(0, each=8)) #zero profit eggs row63 <- c(rep(0, each=11), -birdsshare[i,9], 1, rep(0, each=22), -birdsshare[i,7], rep(0, each=5), -birdsshare[i,6], rep(0, each=6), -birdsshare[i,5], rep(0, each=8)) #market clearing eggs row64 <- c(0, eggsgen[i,3]*retailelasticity[10,1]*beefgen[i,9]/beefgen[i,10], 0, 0, eggsgen[i,3]*retailelasticity[10,8]*milkgen[i,9]/milkgen[i,10], 0, 0, eggsgen[i,3]*retailelasticity[10,2]*porkgen[i,9]/porkgen[i,10], 0, 0, eggsgen[i,3]*retailelasticity[10,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10], -eggsgen[i,4]*as.numeric(substitutionelasticity[9,3])*(1-birdsshare[i,9]), eggsgen[i,6]/1000*tradeelasticity[9,1]-eggsgen[i,7]/1000*tradeelasticity[9,2]+eggsgen[i,3]*retailelasticity[10,10]*eggsgen[i,9]/eggsgen[i,10]-eggsgen[i,8]/1000*stockelasiticity[i,12], 0, eggsgen[i,3]*retailelasticity[10,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100), 0, eggsgen[i,3]*retailelasticity[10,7], eggsgen[i,3]*retailelasticity[10,9], rep(0, each=17), eggsgen[i,4]*birdsshare[i,7]*substitutionelasticity[9,6], rep(0, each=5), eggsgen[i,3]*retailelasticity[10,6]+eggsgen[i,4]*birdsshare[i,6]*substitutionelasticity[9,4], rep(0, each=6), eggsgen[i,3]*retailelasticity[10,5]-eggsgen[i,4]*(birdsshare[i,1]*substitutionelasticity[9,1]+(birdsshare[i,9]-1)*as.numeric(substitutionelasticity[9,3])+birdsshare[i,6]*substitutionelasticity[9,4]+birdsshare[i,7]*substitutionelasticity[9,6]), rep(0, each=8)) #zero profit lamb meat row65 <- c(rep(0, each=13), -sheeplambmeatshare[i,9], 1, -sheeplambmeatshare[i,3], rep(0, each=41)) #market clearing lamb meat row66 <- c(0, -sheeplambmeatgen[i,3]*retailelasticity[4,1]*beefgen[i,9]/beefgen[i,10], 0, 0, -sheeplambmeatgen[i,3]*retailelasticity[4,8]*milkgen[i,9]/milkgen[i,10], 0, 0, -sheeplambmeatgen[i,3]*retailelasticity[4,4]*porkgen[i,9]/porkgen[i,10], 0, 0, -sheeplambmeatgen[i,3]*retailelasticity[4,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10], 0, -sheeplambmeatgen[i,3]*retailelasticity[4,10]*eggsgen[i,9]/eggsgen[i,10], sheeplambmeatgen[i,4]*(sheeplambmeatshare[i,1]*substitutionelasticity[4,1]+sheeplambmeatshare[i,3]*substitutionelasticity[4,2]), sheeplambmeatgen[i,5]*tradeelasticity[4,2]-sheeplambmeatgen[i,6]*tradeelasticity[4,1]-sheeplambmeatgen[i,3]*retailelasticity[4,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100)-sheeplambmeatgen[i,8]*stockelasiticity[1,4], -sheeplambmeatgen[i,4]*sheeplambmeatshare[i,3]*substitutionelasticity[4,2], -sheeplambmeatgen[i,3]*retailelasticity[4,7], -sheeplambmeatgen[i,3]*retailelasticity[4,9], rep(0, each=23), -sheeplambmeatgen[i,3]*retailelasticity[4,6], rep(0, each=6), -sheeplambmeatgen[i,3]*retailelasticity[4,5], rep(0, each=8)) #market clearing lambs row67 <- c(rep(0, each=13), sheepgen[i,9]*substitutionelasticity[4,2], 0, +(sheepgen[i,5]*tradeelasticity[10,1]-sheepgen[i,1]*tradeelasticity[10,2]-sheepgen[i,9]*substitutionelasticity[4,2]), rep(0, each=41)) #market clearing rice row68 <- c(0, ricegen[i,7]*retailelasticity[7,1]*beefgen[i,9]/beefgen[i,10], 0, 0, ricegen[i,7]*retailelasticity[7,8]*milkgen[i,9]/milkgen[i,10], 0, 0, ricegen[i,7]*retailelasticity[7,2]*porkgen[i,9]/porkgen[i,10], 0, 0, ricegen[i,7]*retailelasticity[7,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10], 0, ricegen[i,7]*retailelasticity[7,10]*eggsgen[i,9]/eggsgen[i,10], 0, ricegen[i,7]*retailelasticity[7,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100), 0, ricegen[i,4]*tradeelasticity[15,1]-ricegen[i,3]*tradeelasticity[15,2]+ricegen[i,7]*retailelasticity[7,7]-ricegen[i,6]*stockelasiticity[1,10], ricegen[i,7]*retailelasticity[7,9], rep(0, each=23), ricegen[i,7]*retailelasticity[7,6], rep(0, each=6), ricegen[i,7]*retailelasticity[7,5], rep(0, each=8)) #market clearing soyoil row69 <- c(0, soyoilgen[i,6]*retailelasticity[9,1]*beefgen[i,9]/beefgen[i,10], 0, 0, soyoilgen[i,6]*retailelasticity[9,8]*milkgen[i,9]/milkgen[i,10], 0, 0, soyoilgen[i,6]*retailelasticity[9,2]*porkgen[i,9]/porkgen[i,10], 0, 0, soyoilgen[i,6]*retailelasticity[9,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10], 0, soyoilgen[i,6]*retailelasticity[9,10]*eggsgen[i,9]/eggsgen[i,10], 0, soyoilgen[i,6]*retailelasticity[9,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100), 0, soyoilgen[i,6]*retailelasticity[9,7], soyoilgen[i,3]*tradeelasticity[17,1]-(soyoilgen[i,1]*soybeancrush[1,1]*0.177*soyoilgen[i,8]/6.3355)+soyoilgen[i,6]*retailelasticity[9,9]-soyoilgen[i,2]*tradeelasticity[17,2]-soyoilgen[i,5]*stockelasiticity[1,7], soyoilgen[i,1]*soybeancrush[1,1]*soybeansgen[i,10]/6.3355, rep(0, each=16), -soyoilgen[i,1]*soybeancrush[1,1]*0.795*soymealgen[i,8]/6.3355, rep(0, each=5), soyoilgen[i,6]*retailelasticity[9,6], rep(0, each=6), soyoilgen[i,6]*retailelasticity[9,5], rep(0, each=8)) #market clearing soybeans row70 <- c(rep(0, each=17), soybeansgen[i,8]*soybeancrush[1,1]*0.177*soyoilgen[i,8]/6.3355, soybeansgen[i,4]*tradeelasticity[13,1]-soybeansgen[i,3]*tradeelasticity[13,2]-soybeansgen[i,8]*soybeancrush[1,1]*soybeansgen[i,10]/6.3355-soybeansgen[i,6]*stockelasiticity[1,8], rep(0, each=16), soybeansgen[i,8]*soybeancrush[1,1]*0.795*soymealgen[i,8]/6.3355, rep(0, each=21)) #Total beef cattle row71 <- c(0, 0, cattlegen[i,20]*otherelasticity[3,1]*otherelasticity[5,1]+(as.numeric(cattlegen[i,21])+as.numeric(cattlegen[i,22])+as.numeric(cattlegen[i,23])+cattlegen[i,24])*otherelasticity[3,1]-(cattlegen[i,1]+cattlegen[i,2])*tradeelasticity[5,2]+cattlegen[i,9]*tradeelasticity[5,1], rep(0, each=16), as.numeric(cattlegen[i,16])+as.numeric(cattlegen[i,17])+as.numeric(cattlegen[i,18])+as.numeric(cattlegen[i,19])+cattlegen[i,20]+as.numeric(cattlegen[i,21])+as.numeric(cattlegen[i,25])+as.numeric(cattlegen[i,26]), rep(0, each=37)) #Total swine row72 <- c(rep(0, each=8), as.numeric(swinegen[i,18])*otherelasticity[10,1]+swinegen[i,11]*tradeelasticity[6,1]-swinegen[i,7]*tradeelasticity[6,2], rep(0, each=11), as.numeric(swinegen[i,18])+as.numeric(swinegen[i,20])+as.numeric(swinegen[i,21]), rep(0, each=36)) #Total dairy cattle row73 <- c(0, 0, cattlegen[i,9]*tradeelasticity[5,1]-as.numeric(cattlegen[i,5])*tradeelasticity[5,2], (cattlegen[i,12]+as.numeric(cattlegen[i,13])+cattlegen[i,14]+cattlegen[i,15])*otherelasticity[12,1]*(dairyshare[i,9]-1)*as.numeric(substitutionelasticity[8,3]), rep(0, each=17), (cattlegen[i,12]+as.numeric(cattlegen[i,13])+cattlegen[i,14]+cattlegen[i,15]), rep(0, each=6), (cattlegen[i,12]+as.numeric(cattlegen[i,13])+cattlegen[i,14]+cattlegen[i,15])*otherelasticity[12,1]*dairyshare[i,8]*substitutionelasticity[8,7], rep(0, each=6), (cattlegen[i,12]+as.numeric(cattlegen[i,13])+cattlegen[i,14]+cattlegen[i,15])*otherelasticity[12,1]*dairyshare[i,7]*substitutionelasticity[8,6], rep(0, each=5), (cattlegen[i,12]+as.numeric(cattlegen[i,13])+cattlegen[i,14]+cattlegen[i,15])*otherelasticity[12,1]*dairyshare[i,6]*substitutionelasticity[8,4], rep(0, each=6), (cattlegen[i,12]+as.numeric(cattlegen[i,13])+cattlegen[i,14]+cattlegen[i,15])*otherelasticity[12,1]*as.numeric(substitutionelasticity[8,3])*(dairyshare[i,9]-1)-dairyshare[i,1]*substitutionelasticity[8,2]-dairyshare[i,6]*substitutionelasticity[8,4]-dairyshare[i,7]*substitutionelasticity[8,6]-dairyshare[i,8]*substitutionelasticity[8,7], rep(0, each=8)) #Bird numbers row74 <- c(rep(0, each=9), -otherelasticity[2,1]*as.numeric(substitutionelasticity[7,3])*(1-birdsshare[i,18]), rep(0, each=12), 1, rep(0, each=12), otherelasticity[2,1]*birdsshare[i,16]*substitutionelasticity[7,6], rep(0, each=5), otherelasticity[2,1]*birdsshare[i,15]*substitutionelasticity[7,4], rep(0, each=6), -otherelasticity[2,1]*(birdsshare[i,10]*substitutionelasticity[7,1]+as.numeric(substitutionelasticity[7,3])*(birdsshare[i,18]-1)+birdsshare[i,15]*substitutionelasticity[7,4]+birdsshare[i,16]*substitutionelasticity[7,6]), rep(0, each=8)) #Layer numbers row75 <- c(rep(0, each=11), -otherelasticity[1,1]*as.numeric(substitutionelasticity[9,3])*(1-birdsshare[i,9]), rep(0, each=11), 1, rep(0, each=11), otherelasticity[1,1]*birdsshare[i,7]*substitutionelasticity[9,6], rep(0, each=5), otherelasticity[1,1]*birdsshare[i,6]*substitutionelasticity[9,4], rep(0, each=6), -otherelasticity[1,1]*(birdsshare[i,1]*substitutionelasticity[9,2]+as.numeric(substitutionelasticity[9,3])*(birdsshare[i,9]-1)+birdsshare[i,6]*substitutionelasticity[9,4]+birdsshare[i,7]*substitutionelasticity[9,6]), rep(0, each=8)) #Total lamb and sheep numbers row76 <- c(rep(0, each=15), as.numeric(sheepgen[i,15])*otherelasticity[18,1]*otherelasticity[14,1]+(as.numeric(sheepgen[i,16])+as.numeric(sheepgen[i,17])+sheepgen[i,18]+sheepgen[i,19])*otherelasticity[14,1]+sheepgen[i,21]*otherelasticity[16,1], rep(0, each=8), as.numeric(sheepgen[i,12])+as.numeric(sheepgen[i,13])+as.numeric(sheepgen[i,14])+as.numeric(sheepgen[i,15])+as.numeric(sheepgen[i,16])+as.numeric(sheepgen[i,17])+sheepgen[i,18]+sheepgen[i,19]+as.numeric(sheepgen[i,20])+sheepgen[i,21], rep(0, each=32)) #Forage usc: beef row77 <- c(rep(0, each=19), -1, rep(0, each=5), 1, 0, 0, -(cattleshare[i,8]-1)*substitutionelasticity[5,7], rep(0, each=6), -cattleshare[i,7]*substitutionelasticity[5,6], rep(0, each=5), -cattleshare[i,6]*substitutionelasticity[5,4], rep(0, each=6), cattleshare[i,6]*substitutionelasticity[5,4]+cattleshare[i,7]*substitutionelasticity[5,6]+(cattleshare[i,8]-1)*substitutionelasticity[5,7], rep(0, each=8)) #Forage usc: dairy row78 <- c(rep(0, each=21), -1, rep(0, each=4), 1, 0, -(dairyshare[i,8]-1)*substitutionelasticity[8,7], rep(0, each=6), -dairyshare[i,7]*substitutionelasticity[8,6], rep(0, each=5), -dairyshare[i,6]*substitutionelasticity[8,4], rep(0, each=6), dairyshare[i,6]*substitutionelasticity[8,4]+dairyshare[i,7]*substitutionelasticity[8,6]+(dairyshare[i,8]-1)*substitutionelasticity[8,7], rep(0, each=8)) #Forage usc: lambs & sheep row79 <- c(rep(0, each=24), -1, rep(0, each=2), 1, -(sheepshare[i,8]-1)*substitutionelasticity[10,7], rep(0, each=6), -sheepshare[i,7]*substitutionelasticity[10,6], rep(0, each=5), -sheepshare[i,6]*substitutionelasticity[10,4], rep(0, each=6), sheepshare[i,6]*substitutionelasticity[10,4]+sheepshare[i,7]*substitutionelasticity[10,6]+(sheepshare[i,8]-1)*substitutionelasticity[10,7], rep(0, each=8)) #market clearing forage row80 <- c(rep(0, each=25), Feedbalance[2,2], Feedbalance[3,2], Feedbalance[4,2], -ForageSU[1,4]*stockelasiticity[1,13], rep(0, each=28)) #Soymeal usc: beef row81 <- c(rep(0, each=19), -1, rep(0, each=8), -cattleshare[i,8]*substitutionelasticity[5,7], 1, rep(0, each=5), -(cattleshare[i,7]-1)*substitutionelasticity[5,6], rep(0, each=5), -cattleshare[i,6]*substitutionelasticity[5,4], rep(0, each=6), cattleshare[i,6]*substitutionelasticity[5,4]+(cattleshare[i,7]-1)*substitutionelasticity[5,6]+cattleshare[i,8]*substitutionelasticity[5,7], rep(0, each=8)) #Soymeal usc: dairy row82 <- c(rep(0, each=21), -1, rep(0, each=6), -dairyshare[i,8]*substitutionelasticity[8,7], 0, 1, rep(0, each=4), -(dairyshare[i,7]-1)*substitutionelasticity[8,6], rep(0, each=5), -dairyshare[i,6]*substitutionelasticity[8,4], rep(0, each=6), dairyshare[i,6]*substitutionelasticity[8,4]+(dairyshare[i,7]-1)*substitutionelasticity[8,6]+(dairyshare[i,8]-1)*substitutionelasticity[8,7], rep(0, each=8)) #Soymeal usc: hogs row83 <- c(rep(0, each=20), -1, rep(0, each=10), 1, rep(0, each=3), -(swinegen[i,7]-1)*substitutionelasticity[6,6], rep(0, each=5), swinegen[i,6]*substitutionelasticity[6,4], rep(0, each=6), swinegen[i,6]*substitutionelasticity[6,4]+(swinegen[i,7]-1)*substitutionelasticity[6,6], rep(0, each=8)) #Soymeal usc: poultry meat row84 <- c(rep(0, each=22), -1, rep(0, each=9), 1, rep(0, each=2), -(birdsshare[i,16]-1)*substitutionelasticity[7,6], rep(0, each=5), -birdsshare[i,15]*substitutionelasticity[7,4], rep(0, each=6), birdsshare[i,15]*substitutionelasticity[7,4]+(birdsshare[i,16]-1)*substitutionelasticity[7,6], rep(0, each=8)) #Soymeal usc: eggs row85 <- c(rep(0, each=23), -1, rep(0, each=9), 1, 0, -(birdsshare[i,7]-1)*substitutionelasticity[9,6], rep(0, each=5), -birdsshare[i,6]*substitutionelasticity[9,4], rep(0, each=6), birdsshare[i,6]*substitutionelasticity[9,4]+(birdsshare[i,7]-1)*substitutionelasticity[9,6], rep(0, each=8)) #Soymeal usc: lambs & sheep row86 <- c(rep(0, each=24), -1, rep(0, each=3), -sheepshare[i,8]*substitutionelasticity[10,7], rep(0, each=5), 1, -(sheepshare[i,7]-1)*substitutionelasticity[10,6], rep(0, each=5), -sheepshare[i,6]*substitutionelasticity[10,4], rep(0, each=6), sheepshare[i,6]*substitutionelasticity[10,4]+(sheepshare[i,7]-1)*substitutionelasticity[10,6], rep(0, each=8)) #Market clearing soymeal row87 <- c(rep(0, each=17), -soymealgen[i,1]*soybeancrush[1,1]*0.177*soyoilgen[i,8]/6.3355, soymealgen[i,1]*soybeancrush[1,1]*soybeansgen[i,10]/6.3355, rep(0, each=10), Feedbalance[2,4], Feedbalance[3,4], Feedbalance[1,4], Feedbalance[5,4], Feedbalance[6,4], Feedbalance[4,4], soymealgen[i,3]*tradeelasticity[16,1]-soymealgen[i,1]*soybeancrush[1,1]*0.795*soymealgen[i,8]/6.3355-soymealgen[i,2]*tradeelasticity[16,2]-soymealgen[i,5]*stockelasiticity[1,6], rep(0, each=21)) #Wheat usc: beef row88 <- c(rep(0, each=19), -1, rep(0, each=8), -cattleshare[i,8]*substitutionelasticity[5,7], rep(0, each=6), -cattleshare[i,7]*substitutionelasticity[5,6], 1, rep(0, each=4), -(cattleshare[i,6]-1)*substitutionelasticity[5,4], rep(0, each=6), (cattleshare[i,6]-1)*substitutionelasticity[5,4]+cattleshare[i,7]*substitutionelasticity[5,6]+cattleshare[i,8]*substitutionelasticity[5,7], rep(0, each=8)) #Wheat usc: dairy row89 <- c(rep(0, each=21), -1, rep(0, each=6), -dairyshare[i,8]*substitutionelasticity[8,7], rep(0, each=6), -dairyshare[i,7]*substitutionelasticity[8,6], 0, 1, rep(0, each=3), -(dairyshare[i,6]-1)*substitutionelasticity[8,4], rep(0, each=6), (dairyshare[i,6]-1)*substitutionelasticity[8,4]+dairyshare[i,7]*substitutionelasticity[8,6]+dairyshare[i,8]*substitutionelasticity[8,7], rep(0, each=8)) #Wheat usc: swine row90 <- c(rep(0, each=20), -1, rep(0, each=14), -swinegen[i,7]*substitutionelasticity[6,6], 0, 0, 1, 0, 0, -(swinegen[i,6]-1)*substitutionelasticity[6,4], rep(0, each=6), (swinegen[i,6]-1)*substitutionelasticity[6,4]+swinegen[i,7]*substitutionelasticity[6,6], rep(0, each=8)) #Wheat usc: poultry meat row91 <- c(rep(0, each=22), -1, rep(0, each=12), -birdsshare[i,16]*substitutionelasticity[7,6], rep(0, each=3), 1, 0, -(birdsshare[i,15]-1)*substitutionelasticity[7,4], rep(0, each=6), (birdsshare[i,15]-1)*substitutionelasticity[7,4]+birdsshare[i,16]*substitutionelasticity[7,6], rep(0, each=8)) #Wheat usc: eggs row92 <- c(rep(0, each=23), -1, rep(0, each=11), -birdsshare[i,7]*substitutionelasticity[9,6], rep(0, each=4), 1, -(birdsshare[i,6]-1)*substitutionelasticity[9,4], rep(0, each=6), (birdsshare[i,6]-1)*substitutionelasticity[9,4]+birdsshare[i,7]*substitutionelasticity[9,6], rep(0, each=8)) #Wheat market clearing row93 <- c(0, wheatgen[i,7]*retailelasticity[6,1]*beefgen[i,9]/beefgen[i,10], 0, 0, wheatgen[i,7]*retailelasticity[6,8]*milkgen[i,9]/milkgen[i,10], 0, 0, wheatgen[i,7]*retailelasticity[6,2]*porkgen[i,9]/porkgen[i,10], 0, 0, wheatgen[i,7]*retailelasticity[6,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10], 0, wheatgen[i,7]*retailelasticity[6,10]*eggsgen[i,9]/eggsgen[i,10], 0, wheatgen[i,7]*retailelasticity[6,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100), 0, wheatgen[i,7]*retailelasticity[6,7], wheatgen[i,7]*retailelasticity[6,9], rep(0, each=18), Feedbalance[2,4], Feedbalance[3,4], Feedbalance[1,4], Feedbalance[5,4], Feedbalance[6,4], wheatgen[i,4]*tradeelasticity[11,1]-wheatgen[i,3]*tradeelasticity[11,2]+wheatgen[i,7]*retailelasticity[6,6]-wheatgen[i,6]*stockelasiticity[1,9], rep(0, each=6), wheatgen[i,7]*retailelasticity[6,5], rep(0, each=8)) #Feed grains usc: beef row94 <- c(rep(0, each=19), -1, rep(0, each=8), -cattleshare[i,8]*substitutionelasticity[5,7], rep(0, each=6), -cattleshare[i,7]*substitutionelasticity[5,6], rep(0, each=5), -cattleshare[i,6]*substitutionelasticity[5,4], 1, rep(0, each=5), cattleshare[i,6]*substitutionelasticity[5,4]+cattleshare[i,7]*substitutionelasticity[5,6]+cattleshare[i,8]*substitutionelasticity[5,7], rep(0, each=8)) #Feed grains usc: dairy row95 <- c(rep(0, each=21), -1, rep(0, each=6), -dairyshare[i,8]*substitutionelasticity[8,7], rep(0, each=6), -dairyshare[i,7]*substitutionelasticity[8,6], rep(0, each=5), -dairyshare[i,6]*substitutionelasticity[8,4], 0, 1, rep(0, each=4), dairyshare[i,6]*substitutionelasticity[8,4]+dairyshare[i,7]*substitutionelasticity[8,6]+dairyshare[i,8]*substitutionelasticity[8,7], rep(0, each=8)) #Feed grains usc: swine row96 <- c(rep(0, each=20), -1, rep(0, each=14), -swinegen[i,7]*substitutionelasticity[6,6], rep(0, each=5), -swinegen[i,6]*substitutionelasticity[6,4], 0, 0, 1, rep(0, each=3), swinegen[i,6]*substitutionelasticity[6,4]+swinegen[i,7]*substitutionelasticity[6,6], rep(0, each=8)) #Feed grains usc: poultry meat row97 <- c(rep(0, each=22), -1, rep(0, each=12), -birdsshare[i,16]*substitutionelasticity[7,6], rep(0, each=5), -birdsshare[i,15]*substitutionelasticity[7,4], rep(0, each=3), 1, 0, 0, birdsshare[i,15]*substitutionelasticity[7,4]+birdsshare[i,16]*substitutionelasticity[7,6], rep(0, each=8)) #Feed grains usc: eggs row98 <- c(rep(0, each=23), -1, rep(0, each=11), -birdsshare[i,7]*substitutionelasticity[9,6], rep(0, each=5), -birdsshare[i,6]*substitutionelasticity[9,4], rep(0, each=4), 1, 0, birdsshare[i,6]*substitutionelasticity[9,4]+birdsshare[i,7]*substitutionelasticity[9,6], rep(0, each=8)) #Feed grains usc: lambs & sheep row99 <- c(rep(0, each=24), -1, rep(0, each=3), -sheepshare[i,8]*substitutionelasticity[10,7], rep(0, each=6), -sheepshare[i,8]*substitutionelasticity[10,6], rep(0, each=11), 1, sheepshare[i,8]*substitutionelasticity[10,6]+sheepshare[i,8]*substitutionelasticity[10,7], rep(0, each=8)) #Market clearing feed grains row100 <- c(0, coarsegrainsgen[i,7]*retailelasticity[5,1]*beefgen[i,9]/beefgen[i,10], 0, 0, coarsegrainsgen[i,7]*retailelasticity[5,8]*milkgen[i,9]/milkgen[i,10], 0, 0, coarsegrainsgen[i,7]*retailelasticity[5,2]*porkgen[i,9]/porkgen[i,10], 0, 0, coarsegrainsgen[i,7]*retailelasticity[5,3]*poultrymeatgen[i,9]/poultrymeatgen[i,10], 0, coarsegrainsgen[i,7]*retailelasticity[5,10]*eggsgen[i,9]/eggsgen[i,10], 0, coarsegrainsgen[i,7]*retailelasticity[5,4]*sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100), 0, coarsegrainsgen[i,7]*retailelasticity[5,7], coarsegrainsgen[i,7]*retailelasticity[5,9], rep(0, each=23), coarsegrainsgen[i,7]*retailelasticity[5,6], Feedbalance[2,2], Feedbalance[3,2], Feedbalance[1,2], Feedbalance[5,2], Feedbalance[6,2], Feedbalance[4,2], coarsegrainsgen[i,4]*tradeelasticity[12,1]-coarsegrainsgen[i,3]*tradeelasticity[12,2]+coarsegrainsgen[i,7]*retailelasticity[5,5]-coarsegrainsgen[i,6]*stockelasiticity[1,5], rep(0, each=8)) #Land market clearing row101 <- c(rep(0, each=49), -(landcost[1,1]*substitutionelasticity[12,8]+landcost[1,2]*substitutionelasticity[13,8]+landcost[1,3]*substitutionelasticity[15,8]+landcost[1,5]*substitutionelasticity[11,8]+landcost[1,4]*substitutionelasticity[11,8]+landcost[1,7]*substitutionelasticity[14,8]+landcost[1,6]*substitutionelasticity[14,8]), landcost[1,1]*substitutionelasticity[12,8], landcost[1,2]*substitutionelasticity[13,8], landcost[1,3]*substitutionelasticity[15,8], landcost[1,5]*substitutionelasticity[11,8], landcost[1,4]*substitutionelasticity[11,8], landcost[1,7]*substitutionelasticity[14,8], landcost[1,6]*substitutionelasticity[14,8]) #Expected return feed grains row102 <- c(rep(0, each=49), coarsegrainsshare[i,2], coarsegrainsshare[i,9], rep(0, each=6)) #Expected return soybeans row103 <- c(rep(0, each=49), soybeansshare[i,2], 0, soybeansshare[i,9], rep(0, each=5)) #Expected return rice row104 <- c(rep(0, each=49), riceshare[i,2], 0, 0, riceshare[i,9], rep(0, each=4)) #Expected return spring wheat row105 <- c(rep(0, each=49), wheatshare[i,2], rep(0, each=3), wheatshare[i,9], rep(0, each=3)) #Expected return winter wheat row106 <- c(rep(0, each=49), wheatshare[i,2], rep(0, each=4), wheatshare[i,9], rep(0, each=2)) #Expected return Q3 forage row107 <- c(rep(0, each=49), Forageshare[1,2], rep(0, each=5), Forageshare[1,8], 0) #Expected return Q2 next row108 <- c(rep(0, each=49), Forageshare[1,2], rep(0, each=6), Forageshare[1,8]) #Exogenous part #Market clearing beef r53 <- c(beefgen[i,3]* (uspopulation[i,1]+consumerfear[i,1] +retailelasticity[1,1]*(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1] +retailelasticity[1,2]*(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2] +retailelasticity[1,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3] +retailelasticity[1,4]*(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4] +retailelasticity[1,8]*(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6] +retailelasticity[1,10]*(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5] -beefgen[i,5]*(multipleshock[1,1]-tradeelasticity[1,2]*specificintervention[i,1]/beefgen[i,9]) -beefgen[i,7]*lagged[28,1] -beefgen[i,4]*(primaryfactor[i,2]-beefshare[i,1]*substitutionelasticity[1,1]*exogenousinput[i,1]) +beefgen[i,6]*(multipleshock[i,2]-tradeelasticity[1,1]*specificintervention[i,2]/beefgen[i,9]))) #Cattle market clearing r54 <- c(as.numeric(cattlegen[i,16])*(lagged[1,1]+animalremoval[i,4]) -(as.numeric(cattlegen[i,16])+cattlegen[i,2]+cattlegen[i,3]+dairygen[i,9]-cattlegen[i,7])*primaryfactor[i,2] +(cattlegen[i,2]+cattlegen[i,3])*(multipleshock[i,14]-tradeelasticity[5,2]*specificintervention[i,14]/cattlegen[i,15]) -cattlegen[i,7]*(multipleshock[i,16]-tradeelasticity[5,1]*specificintervention[i,16]/cattlegen[i,15]) +as.numeric(cattlegen[i,25])*(otherelasticity[8,1]*(expectedreturn[i,2]-expectedreturn[i,3])+animalremoval[i,13])) #Zero profit milk r55 <- c(dairyshare[i,1]*exogenousinput[i,6]) #Market clearing milk r56 <- c(milkgen[i,13]* (uspopulation[i,1]+consumerfear[i,6] +retailelasticity[8,1]*(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1] +retailelasticity[8,2]*(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2] +retailelasticity[8,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3] +retailelasticity[8,4]*(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4] +retailelasticity[8,8]*(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6] +retailelasticity[8,10]*(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5]) +milkgen[i,11]*commoditypolicy[i,16] +milkgen[i,6]*(multipleshock[i,10]-tradeelasticity[8,1]*specificintervention[i,10]/milkgen[i,9]) -milkgen[i,7]*lagged[35,1] -milkgen[i,5]*(multipleshock[i,9]-tradeelasticity[8,2]*specificintervention[i,9]/milkgen[i,9]) -milkgen[i,4]* (primaryfactor[i,7]+((dairygen[i,1]*multipleshock[i,35]/9100-dairygen[i,5]*multipleshock[i,36]/9100)/ (as.numeric(dairygen[i,12])+as.numeric(dairygen[i,13])+as.numeric(dairygen[i,14])+as.numeric(dairygen[i,15])) +otherelasticity[20,1]*lagged[51,1]+animalremoval[i,3] -dairyshare[i,1]*substitutionelasticity[8,1]*exogenousinput[i,6]))) #Dairy slaughter r57 <- c((as.numeric(dairygen[i,12])+as.numeric(dairygen[i,13])+as.numeric(dairygen[i,14])+as.numeric(dairygen[i,15]))*0 +as.numeric(dairygen[i,16])*(otherelasticity[13,1]*(expectedreturn[i,6]-expectedreturn[i,5])+animalremoval[i,18])) #Zero profit pork r58 <- c(porkshare[i,1]*exogenousinput[i,2]) #Market clearing pork r59 <- c(porkgen[i,4]*(primaryfactor[i,3]-porkshare[i,1]*substitutionelasticity[2,1]*exogenousinput[i,2]) +porkgen[i,7]*lagged[29,1] -porkgen[i,3]* (uspopulation[i,1]+consumerfear[i,2] +retailelasticity[2,1]*(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1] +retailelasticity[2,2]*(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2] +retailelasticity[2,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3] +retailelasticity[2,4]*(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4] +retailelasticity[2,8]*(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6] +retailelasticity[2,10]*(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5]) -porkgen[1,6]*(multipleshock[i,4]-tradeelasticity[2,1]*specificintervention[i,4]/porkgen[i,9]) -porkgen[1,5]*(multipleshock[i,3]-tradeelasticity[2,2]*specificintervention[i,3]/porkgen[i,9])) #Market clearing hogs r60 <- c((swinegen[i,16]-swinegen[i,6]+swinegen[i,9])*(lagged[9,1]+animalremoval[i,14]) -swinegen[i,15]*primaryfactor[i,3] +swinegen[i,6]*(multipleshock[i,18]-tradeelasticity[6,2]*specificintervention[i,18]/swinegen[i,17]) -swinegen[i,9]*(multipleshock[i,20]-tradeelasticity[6,1]*specificintervention[i,20]/swinegen[i,17])) #Zero profit poultry meat r61 <- c(birdsshare[i,10]*exogenousinput[i,4]) #Market clearing poultry meat r62 <- c(poultrymeatgen[i,7]*lagged[30,1] +poultrymeatgen[i,4]*(primaryfactor[i,5] +otherelasticity[21,1]*lagged[49,1] +animalremoval[i,1] -birdsshare[i,10]*substitutionelasticity[3,1]*exogenousinput[i,4]) +poultrymeatgen[i,5]*(multipleshock[i,5]-tradeelasticity[3,2]*specificintervention[i,5]/poultrymeatgen[i,9]) +poultrymeatgen[i,6]*(multipleshock[i,6]-tradeelasticity[3,1]*specificintervention[i,6]/poultrymeatgen[i,9]) -poultrymeatgen[i,3]* (uspopulation[i,1]+consumerfear[i,3] +retailelasticity[3,1]*(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1] +retailelasticity[3,2]*(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2] +retailelasticity[3,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3] +retailelasticity[3,4]*(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4] +retailelasticity[3,8]*(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6] +retailelasticity[3,10]*(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5])) #Zero profit eggs r63 <- c(birdsshare[i,1]*exogenousinput[i,5]) #Market clearing eggs r64 <- c(eggsgen[i,7]/1000*lagged[32,1] +eggsgen[i,4]*(primaryfactor[i,6] +otherelasticity[22,1]*lagged[50,1] +animalremoval[i,2] -birdsshare[i,1]*substitutionelasticity[7,1]*exogenousinput[i,5]) +eggsgen[i,5]/1000*(multipleshock[i,11]-tradeelasticity[9,2]*specificintervention[i,11]/(eggsgen[i,9])/100) -eggsgen[i,6]/1000*(multipleshock[i,12]-tradeelasticity[9,1]*specificintervention[i,12]/(eggsgen[i,9])/100) -eggsgen[i,4]* (uspopulation[i,1]+consumerfear[i,5] +retailelasticity[10,1]*(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1] +retailelasticity[10,2]*(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2] +retailelasticity[10,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3] +retailelasticity[10,4]*(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4] +retailelasticity[10,8]*(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6] +retailelasticity[10,10]*(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5])) #Zero profit lamb meat r65 <- c(sheeplambmeatshare[i,1]*exogenousinput[i,3]) #Market clearing lamb meat r66 <- c(sheeplambmeatgen[i,3]* (uspopulation[i,1]+consumerfear[i,4] +retailelasticity[4,1]*(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1] +retailelasticity[4,2]*(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2] +retailelasticity[4,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3] +retailelasticity[4,4]*(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4] +retailelasticity[4,8]*(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6] +retailelasticity[4,10]*(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5]) +sheeplambmeatgen[1,6]*(multipleshock[i,8]-tradeelasticity[4,1]*specificintervention[i,8]/sheeplambmeatgen[i,9]) -sheeplambmeatgen[1,5]*(multipleshock[i,7]-tradeelasticity[4,2]*specificintervention[i,7]/sheeplambmeatgen[i,9]) -sheeplambmeatgen[1,7]*lagged[31,1] -sheeplambmeatgen[1,4]*(primaryfactor[i,4]-sheeplambmeatshare[i,1]*substitutionelasticity[4,1]*exogenousinput[i,3])) #Market clearing lambs r67 <- c((sheepgen[i,9]+sheepgen[i,1]-sheepgen[i,5])*(lagged[15,1]+animalremoval[i,22]) -sheepgen[i,9]*primaryfactor[i,4] +sheepgen[i,1]*(multipleshock[i,7]-tradeelasticity[15,2]*specificintervention[i,7]/sheepgen[i,11]) -sheepgen[i,5]*(multipleshock[i,8]-tradeelasticity[15,1]*specificintervention[i,8]/sheepgen[i,11]) +sheepgen[i,21]*(otherelasticity[16,1]*(expectedreturn[i,9]-expectedreturn[i,10])+otherelasticity[17,1]*lagged[37,1]+0)) ### +sheepgen[i,21]*(otherelasticity[16,1]*(expectedreturn[i,9]-expectedreturn[i,10])+otherelasticity[17,1]*lagged[37,1]+animalremoval[i,32])) ### #Market cleraing rice r68 <- c(ricegen[i,5]*lagged[27,1] +ricegen[i,2]*(lagged[38,1]+cropdisease[i,5]) -ricegen[i,6]*stockelasiticity[1,10]*0 ### -ricegen[i,6]*stockelasiticity[1,10]*expectedreturn[i,19] ### +ricegen[i,3]*(multipleshock[i,33]-tradeelasticity[15,2]*specificintervention[i,33]/ricegen[i,10]) -ricegen[i,7]* (uspopulation[i,1]+consumerfear[i,10] +retailelasticity[7,1]*(beefgen[i,10]-beefgen[i,9])*retailwholesale[i,1]/beefgen[i,10] +retailelasticity[7,2]*(porkgen[i,10]-porkgen[i,9])*retailwholesale[i,2]/porkgen[i,10] +retailelasticity[7,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])*retailwholesale[i,3]/poultrymeatgen[i,10] +retailelasticity[7,4]*(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])*retailwholesale[i,4]/(sheeplambmeatgen[i,10]*100) +retailelasticity[7,8]*(milkgen[i,10]-milkgen[i,9])*retailwholesale[i,6]/milkgen[i,10] +retailelasticity[7,10]*(eggsgen[i,10]-eggsgen[i,9])*retailwholesale[i,5]/eggsgen[i,10]) -ricegen[i,4]*(multipleshock[i,34]-tradeelasticity[15,1]*specificintervention[i,34]/ricegen[i,10])) #Market clearing soyoil r69 <- c(soyoilgen[i,4]*lagged[25,1] -soyoilgen[i,6]* (uspopulation[i,1]+consumerfear[i,10] +retailelasticity[9,1]*(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1] +retailelasticity[9,2]*(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2] +retailelasticity[9,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3] +retailelasticity[9,8]*(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6] +retailelasticity[9,10]*(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5]) +soyoilgen[i,2]*(multipleshock[i,31]-tradeelasticity[17,2]*multipleshock[i,31]/soyoilgen[i,8]) +soyoilgen[i,3]*(multipleshock[i,32]-tradeelasticity[17,1]*multipleshock[i,32]/soyoilgen[i,8])) #Market clearing soybeans r70 <- c(soybeansgen[i,5]*lagged[25,1] +soybeansgen[i,2]*(lagged[41,1]+cropdisease[i,6]) +soybeansgen[i,3]*(multipleshock[i,27]-tradeelasticity[13,2]*specificintervention[i,27]/soybeansgen[i,10]) -soybeansgen[i,4]*(multipleshock[i,28]-tradeelasticity[13,1]*specificintervention[i,28]/soybeansgen[i,10]) -soybeansgen[i,6]*stockelasiticity[1,8]*0) ### -soybeansgen[i,6]*stockelasiticity[1,8]*expectedreturn[i,18]) ### #Total beef cattle r71 <- c(as.numeric(cattlegen[i,16])*(lagged[1,1]+animalremoval[i,4]) +as.numeric(cattlegen[i,17])*(lagged[2,1]+animalremoval[i,5]) +as.numeric(cattlegen[i,18])*(lagged[3,1]+animalremoval[i,6]) +as.numeric(cattlegen[i,19])*(lagged[4,1]+animalremoval[i,7]) +cattlegen[i,20]*otherelasticity[3,1]*otherelasticity[5,1]*expectedreturn[i,1] +(cattlegen[i,20]*otherelasticity[3,1]+33717.5)*(0.35*animalremoval[i,9]+0.35*animalremoval[i,10]+0.15*animalremoval[i,11]+0.15*animalremoval[i,12]) +cattlegen[i,20]*otherelasticity[4,1]*otherelasticity[5,1]+33717.5*otherelasticity[4,1] +cattlegen[i,20]*otherelasticity[3,1]*otherelasticity[4,1]*(lagged[5,1]+lagged[6,1]+lagged[7,1]+lagged[48,1]) +as.numeric(cattlegen[i,25])*(otherelasticity[8,1]*(expectedreturn[i,2]-expectedreturn[i,3])+animalremoval[i,13]+lagged[8,1]) +cattlegen[i,20]*animalremoval[i,8] +(cattlegen[i,1]+cattlegen[i,2])*(multipleshock[i,14]-tradeelasticity[5,2]*specificintervention[i,14]/cattlegen[i,15]) -cattlegen[i,9]*(multipleshock[i,16]-tradeelasticity[5,1]*specificintervention[i,16]/cattlegen[i,15]) +as.numeric(cattlegen[i,26])*animalremoval[i,29] +(as.numeric(cattlegen[i,21])+as.numeric(cattlegen[i,22])+as.numeric(cattlegen[i,23])+cattlegen[i,24])*otherelasticity[5,1]*expectedreturn[i,1] +(as.numeric(cattlegen[i,21])+as.numeric(cattlegen[i,22])+as.numeric(cattlegen[i,23])+cattlegen[i,24])*otherelasticity[4,1]*(lagged[5,1]+lagged[6,1]+lagged[7,1]+lagged[48,1]) +(as.numeric(cattlegen[i,21])+as.numeric(cattlegen[i,22])+as.numeric(cattlegen[i,23])+cattlegen[i,24])*(0.35*animalremoval[i,9]+0.35*animalremoval[i,10]+0.15*animalremoval[i,11]+0.15*animalremoval[i,12])) #Total swine r72 <- c(as.numeric(swinegen[i,20])*(lagged[9,1]+animalremoval[i,14]) +as.numeric(swinegen[i,21])*(otherelasticity[6,1]*(expectedreturn[i,4]-lagged[36,1])+otherelasticity[9,1]*lagged[11,1]+animalremoval[i,16]) +swinegen[i,18]*otherelasticity[10,1]*expectedreturn[i,5] +(swinegen[i,1]+swinegen[i,2])*(multipleshock[i,17]-tradeelasticity[6,2]*specificintervention[i,17]/swinegen[i,17]) -(swinegen[i,8]+swinegen[i,9])*(multipleshock[i,19]-tradeelasticity[6,1]*specificintervention[i,19]/swinegen[i,17]) +swinegen[i,18]*(otherelasticity[10,1]*lagged[11,1]+animalremoval[i,17])) #Total dairy cattle r73 <- c(dairygen[i,16]*(otherelasticity[13,1]*(expectedreturn[i,6]-expectedreturn[i,5])+animalremoval[i,18]) +dairygen[i,12]*otherelasticity[12,1]*(primaryfactor[i,7]+otherelasticity[20,1]*lagged[51,1]+animalremoval[i,3]-dairyshare[i,1]*exogenousinput[i,6]) +dairygen[i,16]*animalremoval[i,30] +dairygen[i,1]*(multipleshock[i,35]-tradeelasticity[5,2]*specificintervention[i,35]/dairygen[i,11]) -dairygen[i,5]*(multipleshock[i,34]-tradeelasticity[5,1]*specificintervention[i,34]/dairygen[i,11])) #Bird numbers r74 <- c(otherelasticity[2,1]* (primaryfactor[i,5]+otherelasticity[21,1]*lagged[49,1]+animalremoval[i,1] -birdsshare[i,10]*substitutionelasticity[7,1]*exogenousinput[i,4])) #Layer numbers r75 <- c(otherelasticity[1,1]* (primaryfactor[i,6]+otherelasticity[22,1]*lagged[50,1]+animalremoval[i,2] -birdsshare[i,1]*substitutionelasticity[9,1]*exogenousinput[i,5])) #Total lamb and sheep numbers r76 <- c(as.numeric(sheepgen[i,12])*(lagged[15,1]+animalremoval[i,22]) +as.numeric(sheepgen[i,13])*(lagged[16,1]+animalremoval[i,23]) +as.numeric(sheepgen[i,14])*(lagged[17,1]+animalremoval[i,24]) +as.numeric(sheepgen[i,20])*animalremoval[i,31] +(as.numeric(sheepgen[i,15])*otherelasticity[18,1])*otherelasticity[14,1]*expectedreturn[i,10] +(as.numeric(sheepgen[i,15])*otherelasticity[18,1])*(0.45*animalremoval[i,26]+0.45*animalremoval[i,27]+0.05*animalremoval[i,28]+0.05*animalremoval[i,29]) +(as.numeric(sheepgen[i,15])*otherelasticity[18,1])*otherelasticity[15,1]*lagged[43,1] +as.numeric(sheepgen[i,15])*animalremoval[i,25] +sheepgen[i,21]*(otherelasticity[16,1]*expectedreturn[i,10]+0+otherelasticity[17,1]*lagged[37,1]) ### +sheepgen[i,21]*(otherelasticity[16,1]*expectedreturn[i,10]+animalremoval[i,32]+otherelasticity[17,1]*lagged[37,1]) ### +(as.numeric(sheepgen[i,16])+as.numeric(sheepgen[i,17])+as.numeric(sheepgen[i,18])+as.numeric(sheepgen[i,19]))*otherelasticity[14,1]*expectedreturn[i,10] +(as.numeric(sheepgen[i,16])+as.numeric(sheepgen[i,17])+as.numeric(sheepgen[i,18])+as.numeric(sheepgen[i,19]))*lagged[43,1] +(as.numeric(sheepgen[i,16])+as.numeric(sheepgen[i,17])+as.numeric(sheepgen[i,18])+as.numeric(sheepgen[i,19]))*(0.45*animalremoval[i,26]+0.45*animalremoval[i,27]+0.05*animalremoval[i,28]+0.05*animalremoval[i,29])) #Forage usc: beef r77 <- c(0) #Forage usc: dairy r78 <- c(0) #Forage usc: lambs & sheep r79 <- c(0) #Market clearing forage r80 <- c(ForageSU[1,1]*lagged[26,1] +ForageSU[1,2]*(lagged[42,1]+animalremoval[i,7]+animalremoval[i,8]) -ForageSU[1,4]*stockelasiticity[1,13]*0) ### -ForageSU[1,4]*stockelasiticity[1,13]*expectedreturn[i,20]) ### #Soymeal usc: beef r81 <- c(0) #Soymeal usc: dairy r82 <- c(0) #Soymeal usc: hogs r83 <- c(0) #Soymeal usc: poulty meat r84 <- c(0) #Soymeal usc: eggs r85 <- c(0) #Soymeal usc: lambs & sheep r86 <- c(0) #Market clearing soymeal r87 <- c(soymealgen[i,4]*lagged[33,1] -soymealgen[i,3]*(multipleshock[i,30]-tradeelasticity[16,1]*specificintervention[i,30]/soymealgen[i,8]) +soymealgen[i,2]*(multipleshock[i,29]-tradeelasticity[16,2]*specificintervention[i,29]/soymealgen[i,8])) #Wheat usc: beef r88 <- c(0) #Wheat usc: dairy r89 <- c(0) #Wheat usc: swine r90 <- c(0) #Wheat usc: poultry meat r91 <- c(0) #Wheat usc: eggs r92 <- c(0) #Wheat market clearing r93 <- c(wheatgen[i,5]*lagged[24,1] +wheatgen[i,2]*(lagged[40,1]+cropdisease[i,7]+cropdisease[i,8]) -wheatgen[i,4]*(multipleshock[i,24]-tradeelasticity[11,1]*specificintervention[i,24]/wheatgen[i,10]) -wheatgen[i,3]*(multipleshock[i,23]-tradeelasticity[11,2]*specificintervention[i,23]/wheatgen[i,10]) -wheatgen[i,7]* (uspopulation[i,1]+consumerfear[i,7] +retailelasticity[6,1]*(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1] +retailelasticity[6,2]*(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2] +retailelasticity[6,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3] +retailelasticity[6,4]*(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4] +retailelasticity[6,8]*(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6] +retailelasticity[6,10]*(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5]) -wheatgen[i,6]*stockelasiticity[1,9]*0) ### -wheatgen[i,6]*stockelasiticity[1,9]*expectedreturn[i,16]) ### #Feed grains usc: beef r94 <- c(0) #Feed grains usc: dairy r95 <- c(0) #Feed grains usc: swine r96 <- c(0) #Feed grains usc: poultry meat r97 <- c(0) #Feed grains usc: eggs r98 <- c(0) #Feed grains usc: lambs & sheep r99 <- c(0) #Market clearing feed grains r100 <- c(coarsegrainsgen[i,5]*lagged[23,1] +coarsegrainsgen[i,2]*(lagged[39,1]+cropdisease[i,3]+cropdisease[i,4]) -coarsegrainsgen[i,6]*stockelasiticity[1,5]*0 ### -coarsegrainsgen[i,6]*stockelasiticity[1,5]*expectedreturn[i,17] ### +coarsegrainsgen[i,3]*(multipleshock[i,25]-tradeelasticity[12,2]*specificintervention[i,25]/coarsegrainsgen[i,10]) +coarsegrainsgen[i,4]*(multipleshock[i,26]-tradeelasticity[12,1]*specificintervention[i,26]/coarsegrainsgen[i,10]) -coarsegrainsgen[i,7]* (uspopulation[i,1]+consumerfear[i,8] +retailelasticity[5,1]*(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1] +retailelasticity[5,2]*(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2] +retailelasticity[5,3]*(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3] +retailelasticity[5,4]*(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4] +retailelasticity[5,8]*(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6] +retailelasticity[5,10]*(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5])) #Land market clearing r101 <- c(primaryfactor[i,1] -landcost[1,1]*primaryfactor[i,9] -landcost[1,1]*primaryfactor[i,10] -landcost[1,3]*primaryfactor[i,8] -landcost[1,5]*primaryfactor[i,12] -landcost[1,4]*primaryfactor[i,11] -landcost[1,6]*primaryfactor[i,13] -landcost[1,7]*primaryfactor[i,14]) #Expected return feed grains r102 <- c(0 ### expectedreturn[i,10] ### -coarsegrainsshare[i,1]*exogenousinput[i,8]) #Expected return soybeans r103 <- c(0 ### expectedreturn[i,11] ### -soybeansshare[i,1]*exogenousinput[i,9]) #Expected return rice r104 <- c(0 ### expectedreturn[i,9] ### -riceshare[i,1]*exogenousinput[i,7]) #Expected return spring wheat r105 <- c(0 ### expectedreturn[i,12] ### -wheatshare[i,1]*exogenousinput[i,11]) #Expected return winter wheat r106 <- c(0 ### expectedreturn[i,13] ### -wheatshare[i,1]*exogenousinput[i,10]) #Expected return Q3 forage r107 <- c(0 ### expectedreturn[i,14] ### -Forageshare[1,1]*exogenousinput[i,13]) #Expected return Q2 forage r108 <- c(0 ### expectedreturn[i,13] ### -Forageshare[1,1]*exogenousinput[i,12]) #Objective function obj.fun <- c(-beefshare[1,9], 1, -beefshare[1,3], rep(0, each=54)) #Constraints constr <- rbind(row53, row54, row55, row56, row57, row58, row59, row60, row61, row62, row63, row64, row65, row66, row67, row68, row69, row70, row71, row72, row73, row74, row75, row76, row77, row78, row79, row80, row81, row82, row83, row84, row85, row86, row87, row88, row89, row90, row91, row92, row93, row94, row95, row96, row97, row98, row99, row100, row101, row102, row103, row104, row105, row106, row107, row108) constr.dir <- c(rep("<=", each=56)) rhs <- rbind(r53, r54, r55, r56, r57, r58, r59, r60, r61, r62, r63, r64, r65, r66, r67, r68, r69, r70, r71, r72, r73, r74, r75, r76, r77, r78, r79, r80, r81, r82, r83, r84, r85, r86, r87, r88, r89, r90, r91, r92, r93, r94, r95, r96, r97, r98, r99, r100, r101, r102, r103, r104, r105, r106, r107, r108) prod.sol <- lp("max", obj.fun, constr, constr.dir, rhs, compute.sens = TRUE) values <- prod.sol$solution valuesmat[ , i] <- values } #Percentage changes ##Livestock products valuesmat2 <- matrix(nrow = 16, ncol = 2000) for(i in 1:16){ beefoutput <- c(primaryfactor[i,2] -beefshare[i,2]*substitutionelasticity[1,1]*exogenousinput[i,1] -beefshare[i,3]*substitutionelasticity[1,2]*valuesmat[3,i] +(beefshare[i,1]*substitutionelasticity[1,1]+beefshare[i,3]*substitutionelasticity[1,2])*valuesmat[1,i]) porkoutput <- c(primaryfactor[i,3] -porkshare[i,1]*substitutionelasticity[2,1]*exogenousinput[i,2] -porkshare[i,3]*substitutionelasticity[2,2]*valuesmat[9,i] +(porkshare[i,1]*substitutionelasticity[2,1]+porkshare[i,3]*substitutionelasticity[2,2])*valuesmat[7,i]) poultrymeatoutput <- c(primaryfactor[i,5] +otherelasticity[21,1]*lagged[49,1]+animalremoval[i,1] -(1-birdsshare[i,18])*as.numeric(substitutionelasticity[7,3])*valuesmat[10,i] -birdsshare[i,16]*substitutionelasticity[7,6]*valuesmat[36,i] +(birdsshare[i,1]*substitutionelasticity[7,1]+as.numeric(substitutionelasticity[7,3])*(birdsshare[i,9]-1)+birdsshare[i,15]*substitutionelasticity[7,4]+birdsshare[i,16]*substitutionelasticity[7,6])*valuesmat[49,i]) lambsheepmeatoutput <- c(primaryfactor[i,4] -sheeplambmeatshare[i,1]*substitutionelasticity[4,1]*exogenousinput[i,3] -sheeplambmeatshare[i,3]*substitutionelasticity[4,2]*valuesmat[16,i] +(sheeplambmeatshare[i,1]*substitutionelasticity[4,1]+sheeplambmeatshare[i,3]*substitutionelasticity[4,2])*valuesmat[14,i]) milkoutput <- c(primaryfactor[i,7]+otherelasticity[20,1]*lagged[51,1]+animalremoval[i,3] -dairyshare[i,1]*substitutionelasticity[8,1]*exogenousinput[i,6] -(dairyshare[i,9]-1)*as.numeric(substitutionelasticity[8,3])*valuesmat[4,i] -dairyshare[i,6]*substitutionelasticity[8,4]*valuesmat[42,i] -dairyshare[i,7]*substitutionelasticity[8,6]*valuesmat[36,i] -dairyshare[i,8]*substitutionelasticity[8,7]*valuesmat[29,i] -(as.numeric(substitutionelasticity[8,3])*(1-dairyshare[i,9]) -dairyshare[i,1]*substitutionelasticity[8,1] -dairyshare[i,6]*substitutionelasticity[8,4] -dairyshare[i,7]*substitutionelasticity[8,6] -dairyshare[i,8]*substitutionelasticity[8,7])*valuesmat[49,i]) eggsoutput <- c(primaryfactor[i,6]+otherelasticity[22,1]*lagged[50,1]+animalremoval[i,2] -birdsshare[i,1]*substitutionelasticity[9,1]*exogenousinput[5,1] +(1-birdsshare[i,9])*as.numeric(substitutionelasticity[9,3]) -birdsshare[i,6]*substitutionelasticity[9,4]*valuesmat[42,i] -birdsshare[i,7]*substitutionelasticity[9,6]*valuesmat[36,i] +(birdsshare[i,1]*substitutionelasticity[9,1]*substitutionelasticity[9,1] +(birdsshare[i,9]-1)*as.numeric(substitutionelasticity[9,3]) +birdsshare[i,6]*substitutionelasticity[9,4] +birdsshare[i,7]*substitutionelasticity[9,6])*valuesmat[49,i]) ##Consumption beefconsumption <- c(uspopulation[i,1]+consumerfear[i,1] +retailelasticity[1,1]*((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1]) +retailelasticity[1,2]*((porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2]) +retailelasticity[1,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3]) +retailelasticity[1,4]*((sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100))*valuesmat[15,i]+(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4]) +retailelasticity[1,5]*valuesmat[49,i] +retailelasticity[1,6]*valuesmat[42,i] +retailelasticity[1,7]*valuesmat[17,i] +retailelasticity[1,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6]) +retailelasticity[1,9]*valuesmat[18,i] +retailelasticity[1,10]*((eggsgen[i,9]/eggsgen[i,10])*valuesmat[13,i]+(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5])) porkconsumption <- c(uspopulation[i,1]+consumerfear[i,1] +retailelasticity[2,1]*((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1]) +retailelasticity[2,2]*((porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+(porkgen[1,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2]) +retailelasticity[2,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3]) +retailelasticity[2,4]*((sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100))*valuesmat[15,i]+(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4]) +retailelasticity[2,5]*valuesmat[49,i] +retailelasticity[2,6]*valuesmat[42,i] +retailelasticity[2,7]*valuesmat[17,i] +retailelasticity[2,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6]) +retailelasticity[2,9]*valuesmat[18,i] +retailelasticity[2,10]*((eggsgen[i,9]/eggsgen[i,10])*valuesmat[13,i]+(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5])) poultrymeatconsumption <- c(uspopulation[i,1]+consumerfear[i,1] +retailelasticity[3,1]*((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1]) +retailelasticity[3,2]*((porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2]) +retailelasticity[3,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3]) +retailelasticity[3,4]*((sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100))*valuesmat[15,i]+(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4]) +retailelasticity[3,5]*valuesmat[49,i] +retailelasticity[3,6]*valuesmat[42,i] +retailelasticity[3,7]*valuesmat[17,i] +retailelasticity[3,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6]) +retailelasticity[3,9]*valuesmat[18,i] +retailelasticity[3,10]*((eggsgen[i,9]/eggsgen[i,10])*valuesmat[13,i]+(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5])) lambsheepmeatconsumption <- c(uspopulation[i,1]+consumerfear[i,1] +retailelasticity[4,1]*((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1]) +retailelasticity[4,2]*((porkgen[i,9]/porkgen[1,10])*valuesmat[8,i]+(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2]) +retailelasticity[4,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3]) +retailelasticity[4,4]*((sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100))*valuesmat[15,i]+(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4]) +retailelasticity[4,5]*valuesmat[49,i] +retailelasticity[4,6]*valuesmat[42,i] +retailelasticity[4,7]*valuesmat[17,i] +retailelasticity[4,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6]) +retailelasticity[4,9]*valuesmat[18,i] +retailelasticity[4,10]*((eggsgen[i,9]/eggsgen[i,10])*valuesmat[13,i]+(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5])) milkconsumption <- c(uspopulation[i,1]+consumerfear[i,1] +retailelasticity[8,1]*((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1]) +retailelasticity[8,2]*((porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2]) +retailelasticity[8,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3]) +retailelasticity[8,4]*((sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100))*valuesmat[15,i]+(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4]) +retailelasticity[8,5]*valuesmat[49,i] +retailelasticity[8,6]*valuesmat[42,i] +retailelasticity[8,7]*valuesmat[17,i] +retailelasticity[8,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6]) +retailelasticity[8,9]*valuesmat[18,i] +retailelasticity[8,10]*((eggsgen[i,9]/eggsgen[i,10])*valuesmat[13,i]+(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5])) eggconsumption <- c(uspopulation[i,1]+consumerfear[i,1] +retailelasticity[10,1]*((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+(beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1]) +retailelasticity[10,2]*((porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+(porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2]) +retailelasticity[10,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+(poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3]) +retailelasticity[10,4]*((sheeplambmeatgen[i,9]/(sheeplambmeatgen[i,10]*100))*valuesmat[15,i]+(sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/(sheeplambmeatgen[i,10]*100)*retailwholesale[i,4]) +retailelasticity[10,5]*valuesmat[49,i] +retailelasticity[10,6]*valuesmat[42,i] +retailelasticity[10,7]*valuesmat[17,i] +retailelasticity[10,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+(milkgen[i,10]-milkgen[i,9])/milkgen[i,10]*retailwholesale[i,6]) +retailelasticity[10,9]*valuesmat[18,i] +retailelasticity[10,10]*((eggsgen[i,9]/eggsgen[i,10])*valuesmat[13,i]+(eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10]*retailwholesale[i,5])) ##Imports beefimports <- c(tradepolicyelas[i,1]*tradeelasticity[1,2]*(valuesmat[2,i]-specificintervention[i,1]/beefgen[i,9])+multipleshock[i,1]) porkimports <- c(tradepolicyelas[i,3]*tradeelasticity[2,2]*(valuesmat[8,i]-specificintervention[i,3]/porkgen[i,9])+multipleshock[i,3]) poultrymeatimports <- c(tradepolicyelas[i,5]*tradeelasticity[3,2]*(valuesmat[11,i]-specificintervention[i,5]/poultrymeatgen[i,9])+multipleshock[i,5]) lambsheepmeatimports <- c(tradepolicyelas[7,1]*tradeelasticity[4,2]*(valuesmat[15,i]-specificintervention[i,7]/sheeplambmeatgen[i,9])+multipleshock[i,7]) milkimports <- c(tradepolicyelas[i,9]*tradeelasticity[8,2]*(valuesmat[5,i]-specificintervention[i,9]/milkgen[i,9])+multipleshock[i,9]) eggsimports <- c(tradepolicyelas[i,11]*tradeelasticity[9,2]*(valuesmat[13,i]-specificintervention[i,11]/eggsgen[i,9]/100)+multipleshock[i,11]) ##Exports beefexports <- c(tradepolicyelas[i,2]*tradeelasticity[1,1]*(valuesmat[2,i]-specificintervention[i,2]/beefgen[i,9])+multipleshock[i,2]) porkexports <- c(tradepolicyelas[i,4]*tradeelasticity[2,1]*(valuesmat[8,i]-specificintervention[i,4]/porkgen[i,9])+multipleshock[i,4]) poultrymeatexports <- c(tradepolicyelas[i,6]*tradeelasticity[3,1]*(valuesmat[11,i]-specificintervention[i,6]/poultrymeatgen[i,9])+multipleshock[i,6]) lambsheepmeatexports <- c(tradepolicyelas[i,8]*tradeelasticity[4,1]*(valuesmat[15,i]-specificintervention[i,8]/sheeplambmeatgen[i,9])+multipleshock[i,8]) milkexports <- c(tradepolicyelas[i,10]*tradeelasticity[8,1]*(valuesmat[5,i]-specificintervention[i,10]/milkgen[i,9])+multipleshock[i,10]) eggsexports <- c(tradepolicyelas[i,12]*tradeelasticity[9,1]*(valuesmat[13,i]-specificintervention[i,12]/eggsgen[i,9]/100)+multipleshock[i,12]) #Animals ##Imports beefcattleimportsimmediate <- tradepolicyelas[i,14]*tradeelasticity[5,2]*(valuesmat[3,i]-(specificintervention[i,14]/cattlegen[i,12]))+multipleshock[i,14] beefcattleimportsnot <- tradepolicyelas[i,13]*tradeelasticity[5,2]*(valuesmat[3,i]-(specificintervention[i,13]/cattlegen[i,12]))+multipleshock[i,13] dairycattleimports <- tradepolicyelas[i,35]*tradeelasticity[5,2]*(valuesmat[3,i]-specificintervention[i,35]/as.numeric(cattlegen[i,17]))+multipleshock[i,35] hogsimportsimmediate <- tradepolicyelas[i,18]*tradeelasticity[6,2]*(valuesmat[9,i]-(specificintervention[i,18]/swinegen[i,17]))+multipleshock[i,18] hogsimportsnot <- tradepolicyelas[i,17]*tradeelasticity[6,2]*(valuesmat[9,i]-(specificintervention[i,17]/swinegen[i,17]))+multipleshock[i,17] lambsheepimports <- tradepolicyelas[i,21]*tradeelasticity[10,2]*(valuesmat[16,i]-specificintervention[i,21]/sheepgen[i,11])+multipleshock[i,16] ##Exports beefcattleexportsimmediate <- tradepolicyelas[i,16]*tradeelasticity[5,1]*(valuesmat[3,i]-(specificintervention[i,16]/cattlegen[i,15]))+multipleshock[i,16] beefcattleexportsnot <- tradepolicyelas[i,15]*tradeelasticity[5,1]*(valuesmat[3,i]-(specificintervention[i,15]/cattlegen[i,15]))+multipleshock[i,15] dairycattleexports <- tradepolicyelas[i,36]*tradeelasticity[5,1]*(valuesmat[3,i]-specificintervention[i,36]/as.numeric(cattlegen[i,17]))+multipleshock[i,36] hogsexportsimmediate <- tradepolicyelas[i,20]*tradeelasticity[6,1]*(valuesmat[3,i]-(specificintervention[i,20]/cattlegen[i,15]))+multipleshock[i,20] hogsexportsnot <- tradepolicyelas[i,19]*tradeelasticity[6,1]*(valuesmat[3,i]-(specificintervention[i,19]/cattlegen[i,15]))+multipleshock[i,19] lambsheepexports <- tradepolicyelas[i,22]*tradeelasticity[10,1]*(valuesmat[16,i]-specificintervention[i,22]/sheepgen[i,11])+multipleshock[i,17] ##Cow/Ewe/Bird Inventory beefcattleinventory <- c(otherelasticity[5,1]*(expectedreturn[i,1]-valuesmat[3,i]) +otherelasticity[4,1]*(otherelasticity[8,1]*(expectedreturn[i,2]-expectedreturn[i,3])+animalremoval[i,13]+lagged[8,1]) +(as.numeric(cattlegen[i,22])*animalremoval[i,9] +as.numeric(cattlegen[i,23])*animalremoval[i,10] +cattlegen[i,24]*animalremoval[i,11] +as.numeric(cattlegen[i,21])*animalremoval[i,12]) /(as.numeric(cattlegen[i,21])+as.numeric(cattlegen[i,22])+as.numeric(cattlegen[i,23])+cattlegen[i,24]) +(otherelasticity[19,1]*(lagged[5,1]+lagged[6,1]+lagged[7,1]+lagged[48,1])/4)) dairycattleinventory <- otherelasticity[12,1]*milkoutput lambsheepinventory <- otherelasticity[14,1]*(expectedreturn[i,10]-valuesmat[16,i])+otherelasticity[15,1]*lagged[52,1]+0.45*lagged[26,1]+0.45*lagged[27,1]+0.05*lagged[28,1]+0.05*lagged[25,1] #Feed Block coarsegrainstotal <- (Feedbalance[2,1]*valuesmat[43,i]+Feedbalance[3,1]*valuesmat[44,i]+Feedbalance[1,1]*valuesmat[45,i]+Feedbalance[5,1]*valuesmat[46,i]+Feedbalance[6,1]*valuesmat[47,i]+Feedbalance[4,1]*valuesmat[48,i])/(Feedbalance[1,1]+Feedbalance[2,1]+Feedbalance[3,1]+Feedbalance[5,1]+Feedbalance[6,1]+Feedbalance[4,1]) soybeanmealtotal <- (Feedbalance[2,4]*valuesmat[30,i]+Feedbalance[3,4]*valuesmat[31,i]+Feedbalance[1,4]*valuesmat[32,i]+Feedbalance[5,4]*valuesmat[33,i]+Feedbalance[6,4]*valuesmat[34,i]+Feedbalance[4,4]*valuesmat[35,i])/(Feedbalance[1,4]+Feedbalance[2,4]+Feedbalance[3,4]+Feedbalance[5,4]+Feedbalance[6,4]+Feedbalance[4,4]) wheattotal <- (Feedbalance[2,3]*valuesmat[37,i]+Feedbalance[3,3]*valuesmat[38,i]+Feedbalance[1,3]*valuesmat[39,i]+Feedbalance[5,3]*valuesmat[40,i]+Feedbalance[6,3]*valuesmat[41,i]+Feedbalance[4,3]*valuesmat[42,i])/(Feedbalance[1,3]+Feedbalance[2,3]+Feedbalance[3,3]+Feedbalance[5,3]+Feedbalance[6,3]+Feedbalance[4,3]) foragetotal <- (Feedbalance[2,2]*valuesmat[26,i]+Feedbalance[3,2]*valuesmat[27,i]+Feedbalance[1,2]*valuesmat[28,i])/(Feedbalance[1,2]+Feedbalance[2,2]+Feedbalance[3,2]+Feedbalance[5,2]+Feedbalance[6,2]+Feedbalance[4,2]) #Crop Block ##Production feedgrainsproduction <- lagged[39,1]+cropdisease[i,3]+cropdisease[i,4] riceproduction <- lagged[38,1]+cropdisease[i,5] soybeansproduction <- lagged[41,1]+cropdisease[i,6] wheatproduction <- lagged[40,1]+cropdisease[i,1]+cropdisease[i,2] ##Imports feedgrainsimports <- tradeelasticity[12,2]*valuesmat[49,i] ##Exports feedgrainsexports <- tradepolicyelas[i,26]*tradeelasticity[12,1]*(valuesmat[49,i]-specificintervention[i,26]/coarsegrainsgen[i,10])+multipleshock[i,26] riceexports <- tradepolicyelas[i,34]*tradeelasticity[15,1]*(valuesmat[17,i]-specificintervention[i,34]/ricegen[i,10])+multipleshock[i,34] soybeansexports <- tradepolicyelas[i,28]*tradeelasticity[13,1]*(valuesmat[19,i]-specificintervention[i,28]/soybeansgen[i,10])+multipleshock[i,28] wheatexports <- tradepolicyelas[i,24]*tradeelasticity[11,1]*(valuesmat[42,i]-specificintervention[i,24]/wheatgen[i,10])+multipleshock[i,24] ##Non-feed use feedgrainsnonfeeduse <- c(uspopulation[i,1]+consumerfear[i,8] +retailelasticity[5,1]*((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+((beefgen[i,10]-beefgen[i,9])/beefgen[i,10])*retailwholesale[i,1]) +retailelasticity[5,2]*((porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+((porkgen[i,10]-porkgen[i,9])/porkgen[i,10])*retailwholesale[i,2]) +retailelasticity[5,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+((poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10])*retailwholesale[i,3]) +retailelasticity[5,4]*((sheeplambmeatgen[i,9]/sheeplambmeatgen[i,10]*100)*valuesmat[15,i]+((sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/sheeplambmeatgen[i,10]*100)*retailwholesale[i,4]) +retailelasticity[5,5]*valuesmat[49,i] +retailelasticity[5,6]*valuesmat[42,i] +retailelasticity[5,7]*valuesmat[17,i] +retailelasticity[5,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+((milkgen[i,10]-milkgen[i,9])/milkgen[i,10])*retailwholesale[i,6]) +retailelasticity[5,9]*valuesmat[18,i] +retailelasticity[5,10]*valuesmat[13,i]) soybeansnonfeeduse <- soybeancrush[1,1]*((0.795*soymealgen[i,8]/6.3355)*valuesmat[36,i]+(0.177*soymealgen[i,8]/6.3355)*valuesmat[18,i]-(soymealgen[i,7]/6.3355)*valuesmat[19,i]) ricenonfeeduse <- c(uspopulation[i,1]+consumerfear[i,10] +retailelasticity[7,1]*((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+((beefgen[i,10]-beefgen[i,9])/beefgen[i,10])*retailwholesale[i,1]) +retailelasticity[7,2]*((porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+((porkgen[i,10]-porkgen[i,9])/porkgen[i,10])*retailwholesale[i,2]) +retailelasticity[7,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+((poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10])*retailwholesale[i,3]) +retailelasticity[7,5]*valuesmat[49,i] +retailelasticity[7,6]*valuesmat[42,i] +retailelasticity[7,7]*valuesmat[17,i] +retailelasticity[7,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+((milkgen[i,10]-milkgen[i,9])/milkgen[i,10])*retailwholesale[i,6]) +retailelasticity[7,9]*valuesmat[18,i] +retailelasticity[7,10]*valuesmat[13,i]) wheatnonfeeduse <- c(uspopulation[i,1]+consumerfear[i,7] +retailelasticity[6,1]*((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+((beefgen[i,10]-beefgen[i,9])/beefgen[i,10])*retailwholesale[i,1]) +retailelasticity[6,2]*((porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+((porkgen[i,10]-porkgen[i,9])/porkgen[i,10])*retailwholesale[i,2]) +retailelasticity[6,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+((poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10])*retailwholesale[i,3]) +retailelasticity[6,4]*((sheeplambmeatgen[i,9]/sheeplambmeatgen[i,10]*100)*valuesmat[15,i]+((sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/sheeplambmeatgen[i,10]*100)*retailwholesale[i,4]) +retailelasticity[6,5]*valuesmat[49,i] +retailelasticity[6,6]*valuesmat[42,i] +retailelasticity[6,7]*valuesmat[17,i] +retailelasticity[6,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+((milkgen[i,10]-milkgen[i,9])/milkgen[i,10])*retailwholesale[i,6]) +retailelasticity[6,9]*valuesmat[18,i] +retailelasticity[6,10]*valuesmat[13,i]) ##Ending Stocks riceendingstocks <- stockelasiticity[1,10]*(-valuesmat[17,i]) soybeansendingstocks <- stockelasiticity[1,8]*(-valuesmat[19,i]) wheatendingstocks <- stockelasiticity[1,4]*(-valuesmat[42,i]) forageendingstocks <- stockelasiticity[1,13]*(-valuesmat[29,i]) #soybean products soymealexports <- tradepolicyelas[i,30]*tradeelasticity[16,1]*(valuesmat[36,i]-specificintervention[i,30]/soymealgen[i,8])+multipleshock[i,30] soyoilexports <- tradepolicyelas[i,32]*tradeelasticity[17,1]*(valuesmat[18,i]-specificintervention[i,32]/soyoilgen[i,8])+multipleshock[i,32] soyoilotheruse <- uspopulation[i,1]+consumerfear[i,9]+((beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+((beefgen[i,10]-beefgen[i,9])/beefgen[i,10])*retailwholesale[i,1])+retailelasticity[9,2]*((porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+((porkgen[i,10]-porkgen[i,9])/porkgen[i,9])*retailwholesale[i,2])+retailelasticity[9,3]*((poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+((poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10])*retailwholesale[i,3])+retailelasticity[9,4]*((sheeplambmeatgen[i,9]/sheeplambmeatgen[i,10]*100)*valuesmat[15,i]+((sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/sheeplambmeatgen[i,9])+retailwholesale[i,4]*valuesmat[49,i])+retailelasticity[9,6]*valuesmat[42,i]+retailelasticity[9,7]*valuesmat[17,i]+retailelasticity[9,8]*((milkgen[i,9]/milkgen[i,10])*valuesmat[5,i]+((milkgen[i,10]-milkgen[i,9])/milkgen[i,10])*retailwholesale[i,6])+retailelasticity[9,9]*valuesmat[18,i]+retailelasticity[9,10]*valuesmat[13,i] #ACRE Year acreyear2009 <- ifelse(baseyear == 2009, 1, 0) acreyear2010 <- ifelse(baseyear == 2010, 1, 0) acreyear2011 <- ifelse(baseyear == 2011, 1, 0) acreyear2012 <- ifelse(baseyear == 2012, 1, 0) acreyear2013 <- ifelse(baseyear == 2013, 1, 0) acreyear2014 <- ifelse(baseyear == 2014, 1, 0) acreyear2015 <- ifelse(baseyear == 2015, 1, 0) acreyear2016 <- ifelse(baseyear == 2016, 1, 0) acreyear2017 <- ifelse(baseyear == 2017, 1, 0) acreyear2018 <- ifelse(baseyear == 2018, 1, 0) acreyear2019 <- ifelse(baseyear == 2019, 1, 0) acreyear2020 <- ifelse(baseyear == 2020, 1, 0) #Farm Policy - Traditional coarsebasedirectpayments <- directcorn*2204.6/56 ### directcorn coarsebaseloanrate <- loanratecorn*2204.6/56 ### loanratecorn coarsebasetargetprice <- targetcorn*2204.6/56 ### targetcorn coarsebasemarketloss <- MLAcorn*2204.6/56 ### MLAcorn coarsebasefarmprice <- coarsegrainsgen[i,10] coarsebaseLDPcalculated <- coarsebaseloanrate-coarsebasefarmprice coarsebaseLDPtest <- ifelse(coarsebaseLDPcalculated < 0, 0, 1) coarsebaseLDPactualpaid <- coarsebaseLDPcalculated*coarsebaseLDPtest coarsebaseCCPcalculated <- (coarsebasetargetprice-coarsebasedirectpayments-coarsebasefarmprice-coarsebaseLDPactualpaid)*0.85 coarsebaseCCPtest <- ifelse(coarsebaseCCPcalculated < 0, 0, 1) coarsebaseCCPactualpaid <- coarsebaseCCPcalculated*coarsebaseCCPtest coarsebasegovernmentpayments <- coarsebasedirectpayments + coarsebasemarketloss + coarsebaseLDPactualpaid + coarsebaseCCPactualpaid milkbaseremovals <- milkgen[i,11] milknewremovals <- milkgen[i,11]*(1+commoditypolicy[i,16]) coarsenewdirectpayments <- coarsebasedirectpayments+commoditypolicy[i,4] coarsenewloanrate <- coarsebaseloanrate+commoditypolicy[i,14] coarsenewtargetprice <- coarsebasetargetprice+commoditypolicy[i,9] coarsenewmarketloss <- coarsebasemarketloss+commoditypolicy[i,17] coarsenewfarmprice <- coarsebasefarmprice*(1+valuesmat[49,i]) coarsenewLDPcalculated <- coarsenewloanrate - coarsenewfarmprice coarsenewLDPtest <- ifelse(coarsenewLDPcalculated< 0, 0, 1) coarsenewLDPactualpaid <- coarsenewLDPtest*coarsenewLDPcalculated coarsenewCCPcalculated <- 0.85*(coarsenewtargetprice-coarsenewdirectpayments-coarsenewfarmprice-coarsenewLDPactualpaid) coarsenewCCPtest <- ifelse(coarsenewCCPcalculated < 0, 0, 1) coarsenewCCPactualpaid <- coarsenewCCPtest*coarsenewCCPcalculated coarsenewgovernmentpayments <- coarsenewdirectpayments+coarsenewmarketloss+coarsenewLDPactualpaid+coarsenewCCPactualpaid soybeansbasedirectpayments <- farmpolicy[i,3]*2204.6/60 soybeansbaseloanrate <- farmpolicy[i,13]*2204.6/60 soybeansbasetargetprice <- farmpolicy[i,8]*2204.6/60 soybeansbasemarketloss <- MLAsoybeans*2204.6/60 ### MLAsoybeans soybeansbasefarmprice <- soybeansgen[i,10] soybeansbaseLDPcalculated <- soybeansbaseloanrate - soybeansbasefarmprice soybeansbaseLDPtest <- ifelse(soybeansbaseLDPcalculated< 0, 0, 1) soybeansbaseLDPactualpaid <- soybeansbaseLDPtest*soybeansbaseLDPcalculated soybeansbaseCCPcalculated <- 0.85*(soybeansbasetargetprice-soybeansbasedirectpayments-soybeansbasefarmprice-soybeansbaseLDPactualpaid) soybeansbaseCCPtest <- ifelse(soybeansbaseCCPcalculated< 0, 0, 1) soybeansbaseCCPactualpaid <- soybeansbaseCCPcalculated*soybeansbaseCCPtest soybeansbasegovernmentpayments <- soybeansbasedirectpayments+soybeansbasemarketloss+soybeansbaseLDPactualpaid+soybeansbaseCCPactualpaid soybeansnewdirectpayments <- soybeansbasedirectpayments+commoditypolicy[i,3] soybeansnewloanrate <- soybeansbaseloanrate+commoditypolicy[i,13] soybeansnewtargetprice <- soybeansbasetargetprice+commoditypolicy[i,8] soybeansnewmarketloss <- soybeansbasemarketloss soybeansnewfarmprice <- soybeansbasefarmprice*(1+valuesmat[19,i]) soybeansnewLDPcalculated <- soybeansnewloanrate-soybeansnewfarmprice soybeansnewLDPtest <- ifelse(soybeansnewLDPcalculated< 0, 0, 1) soybeansnewLDPactualpaid <- soybeansnewLDPtest*soybeansnewLDPcalculated soybeansnewCCPcalculated <- 0.85*(soybeansnewtargetprice-soybeansnewdirectpayments-soybeansnewfarmprice-soybeansnewLDPactualpaid) soybeansnewCCPtest <- ifelse(soybeansnewCCPcalculated< 0, 0, 1) soybeansnewCCPactualpaid <- soybeansnewCCPtest*soybeansnewCCPcalculated soybeansnewgovernmentpayments <- soybeansnewdirectpayments+soybeansnewmarketloss+soybeansnewLDPactualpaid+soybeansnewCCPactualpaid wheatbasedirectpayments <- farmpolicy[i,1]*2204.6/60 wheatbaseloanrate <- farmpolicy[i,11]*2204.6/60 wheatbasetargetprice <- farmpolicy[i,6]*2204.6/60 wheatbasemarketloss <- farmpolicy[i,18]*2204.6/60 wheatbasefarmprice <- wheatgen[i,9] wheatbaseLDPcalculated <- wheatbaseloanrate - wheatbasefarmprice wheatbaseLDPtest <- ifelse(wheatbaseLDPcalculated< 0, 0, 1) wheatbaseLDPactualpaid <- wheatbaseLDPtest*wheatbaseLDPcalculated wheatbaseCCPcalculated <- 0.85*(wheatbasetargetprice-wheatbasedirectpayments-wheatbasefarmprice-wheatbaseLDPactualpaid) wheatbaseCCPtest <- ifelse(wheatbaseCCPcalculated< 0, 0, 1) wheatbaseCCPactualpaid <- wheatbaseCCPcalculated*wheatbaseCCPtest wheatbasegovernmentpayments <- wheatbasedirectpayments+wheatbasemarketloss+wheatbaseLDPactualpaid+wheatbaseCCPactualpaid wheatnewdirectpayments <- wheatbasedirectpayments+commoditypolicy[i,1] wheatnewloanrate <- wheatbaseloanrate+commoditypolicy[i,11] wheatnewtargetprice <- wheatbasetargetprice+commoditypolicy[i,6] wheatnewmarketloss <- wheatbasemarketloss+commoditypolicy[i,18] wheatnewfarmprice <- wheatbasefarmprice*(1+valuesmat[42,i]) wheatnewLDPcalculated <- wheatnewloanrate-wheatnewfarmprice wheatnewLDPtest <- ifelse(wheatnewLDPcalculated< 0, 0, 1) wheatnewLDPactualpaid <- wheatnewLDPtest*wheatnewLDPcalculated wheatnewCCPcalculated <- 0.85*(wheatnewtargetprice-wheatnewdirectpayments-wheatnewfarmprice-wheatnewLDPactualpaid) wheatnewCCPtest <- ifelse(wheatnewCCPcalculated< 0, 0, 1) wheatnewCCPactualpaid <- wheatnewCCPtest*wheatnewCCPcalculated wheatnewgovernmentpayments <- wheatnewdirectpayments+wheatnewmarketloss+wheatnewLDPactualpaid+wheatnewCCPactualpaid ricebasedirectpayments <- farmpolicy[i,2]*2204.6/60 ricebaseloanrate <- farmpolicy[i,12]*2204.6/60 ricebasetargetprice <- farmpolicy[i,7]*2204.6/60 ricebasemarketloss <- farmpolicy[i,19]*2204.6/60 ricebasefarmprice <- ricegen[i,10] ricebaseLDPcalculated <- ricebaseloanrate - ricebasefarmprice ricebaseLDPtest <- ifelse(ricebaseLDPcalculated< 0, 0, 1) ricebaseLDPactualpaid <- ricebaseLDPtest*ricebaseLDPcalculated ricebaseCCPcalculated <- 0.85*(ricebasetargetprice-ricebasedirectpayments-ricebasefarmprice-ricebaseLDPactualpaid) ricebaseCCPtest <- ifelse(ricebaseCCPcalculated< 0, 0, 1) ricebaseCCPactualpaid <- ricebaseCCPcalculated*ricebaseCCPtest ricebasegovernmentpayments <- ricebasedirectpayments+ricebasemarketloss+ricebaseLDPactualpaid+ricebaseCCPactualpaid ricenewdirectpayments <- ricebasedirectpayments+commoditypolicy[i,2] ricenewloanrate <- ricebaseloanrate+commoditypolicy[i,12] ricenewtargetprice <- ricebasetargetprice+commoditypolicy[i,7] ricenewmarketloss <- ricebasemarketloss+commoditypolicy[i,19] ricenewfarmprice <- ricebasefarmprice*(1+valuesmat[17,i]) ricenewLDPcalculated <- ricenewloanrate-ricenewfarmprice ricenewLDPtest <- ifelse(ricenewLDPcalculated< 0, 0, 1) ricenewLDPactualpaid <- ricenewLDPtest*ricenewLDPcalculated ricenewCCPcalculated <- 0.85*(ricenewtargetprice-ricenewdirectpayments-ricenewfarmprice-ricenewLDPactualpaid) ricenewCCPtest <- ifelse(ricenewCCPcalculated< 0, 0, 1) ricenewCCPactualpaid <- ricenewCCPtest*ricenewCCPcalculated ricenewgovernmentpayments <- ricenewdirectpayments+ricenewmarketloss+ricenewLDPactualpaid+ricenewCCPactualpaid ## coarse acre2009coarsea <- 117.63478 acre2009coarseb <- 0.78918 acre2010coarsea <- 109.097309 acre2010coarseb <- 0.817 acre2011coarsea <- 103.954763 acre2011coarseb <- 0.81 acre2012coarsea <- 101.4116 acre2012coarseb <- 0.8 acre2013coarsea <- 99.836886 acre2013coarseb <- 0.8 acre2014coarsea <- 99.836886 acre2014coarseb <- 0.8 acre2015coarsea <- 99.836886 acre2015coarseb <- 0.8 acre2016coarsea <- 99.836886 acre2016coarseb <- 0.8 acre2017coarsea <- 99.836886 acre2017coarseb <- 0.8 acre2018coarsea <- 99.836886 acre2018coarseb <- 0.8 acre2019coarsea <- 99.836886 acre2019coarseb <- 0.8 coarsebasedirectpayments <- farmpolicy[i,4]*2204.6/56 coarsebaseacredirectpayments09 <- acreyear2009*0.8*coarsebasedirectpayments coarsebaseacreLDP09 <- acreyear2009*0.7*coarsebaseLDPactualpaid coarsebasearceMax09 <- acreyear2009*ifelse(coarsebasefarmprice<110, 31, 0) coarsebasearcetestupper09 <- acreyear2009*ifelse(coarsebasefarmprice<149, 1, 0) coarsebasearcetestlower09 <- acreyear2009*ifelse(coarsebasefarmprice>110, 1, 0) coarsebasearcepayment09 <- acreyear2009*coarsebasearcetestupper09*coarsebasearcetestlower09*(acre2009coarsea-acre2009coarseb*coarsebasefarmprice) coarsebasearcepayment109 <- ifelse(coarsebasearcepayment09>0, 1, 0) coarsebasearcetotalacreprogram09 <- coarsebaseacredirectpayments09 + coarsebaseacreLDP09 + coarsebasearceMax09 + coarsebasearcepayment09 + coarsebasearcepayment109 coarsebaseacredirectpayments10 <- acreyear2010*0.8*coarsebasedirectpayments coarsebaseacreLDP10 <- acreyear2010*0.7*coarsebaseLDPactualpaid coarsebasearceMax10 <- acreyear2010*ifelse(coarsebasefarmprice<98, 28, 0) coarsebasearcetestupper10 <- acreyear2010*ifelse(coarsebasefarmprice<141, 1, 0) coarsebasearcetestlower10 <- acreyear2010*ifelse(coarsebasefarmprice>98, 1, 0) coarsebasearcepayment10 <- acreyear2010*coarsebasearcetestupper10*coarsebasearcetestlower10*(acre2010coarsea-acre2010coarseb*coarsebasefarmprice) coarsebasearcepayment110 <- ifelse(coarsebasearcepayment10>0, 1, 0) coarsebasearcetotalacreprogram10 <- coarsebaseacredirectpayments10 + coarsebaseacreLDP10 + coarsebasearceMax10 + coarsebasearcepayment10 + coarsebasearcepayment110 coarsebaseacredirectpayments11 <- acreyear2011*0.8*coarsebasedirectpayments coarsebaseacreLDP11 <- acreyear2011*0.7*coarsebaseLDPactualpaid coarsebasearceMax11 <- acreyear2011*ifelse(coarsebasefarmprice<94, 26, 0) coarsebasearcetestupper11 <- acreyear2011*ifelse(coarsebasefarmprice<140, 1, 0) coarsebasearcetestlower11 <- acreyear2011*ifelse(coarsebasefarmprice>94, 1, 0) coarsebasearcepayment11 <- acreyear2011*coarsebasearcetestupper11*coarsebasearcetestlower11*(acre2011coarsea-acre2011coarseb*coarsebasefarmprice) coarsebasearcepayment111 <- ifelse(coarsebasearcepayment11>0, 1, 0) coarsebasearcetotalacreprogram11 <- coarsebaseacredirectpayments11 + coarsebaseacreLDP11 + coarsebasearceMax11 + coarsebasearcepayment11 + coarsebasearcepayment111 coarsebaseacredirectpayments12 <- acreyear2012*0.8*coarsebasedirectpayments coarsebaseacreLDP12 <- acreyear2012*0.7*coarsebaseLDPactualpaid coarsebasearceMax12 <- acreyear2012*ifelse(coarsebasefarmprice<87, 25, 0) coarsebasearcetestupper12 <- acreyear2012*ifelse(coarsebasefarmprice<140, 1, 0) coarsebasearcetestlower12 <- acreyear2012*ifelse(coarsebasefarmprice>87, 1, 0) coarsebasearcepayment12 <- acreyear2012*coarsebasearcetestupper12*coarsebasearcetestlower12*(acre2012coarsea-acre2012coarseb*coarsebasefarmprice) coarsebasearcepayment112 <- ifelse(coarsebasearcepayment12>0, 1, 0) coarsebasearcetotalacreprogram12 <- coarsebaseacredirectpayments12 + coarsebaseacreLDP12 + coarsebasearceMax12 + coarsebasearcepayment12 + coarsebasearcepayment112 coarsebaseacredirectpayments13 <- acreyear2013*0.8*coarsebasedirectpayments coarsebaseacreLDP13 <- acreyear2013*0.7*coarsebaseLDPactualpaid coarsebasearceMax13 <- acreyear2013*ifelse(coarsebasefarmprice<87, 25, 0) coarsebasearcetestupper13 <- acreyear2013*ifelse(coarsebasefarmprice<140, 1, 0) coarsebasearcetestlower13 <- acreyear2013*ifelse(coarsebasefarmprice>87, 1, 0) coarsebasearcepayment13 <- acreyear2013*coarsebasearcetestupper13*coarsebasearcetestlower13*(acre2013coarsea-acre2013coarseb*coarsebasefarmprice) coarsebasearcepayment113 <- ifelse(coarsebasearcepayment13>0, 1, 0) coarsebasearcetotalacreprogram13 <- coarsebaseacredirectpayments13 + coarsebaseacreLDP13 + coarsebasearceMax13 + coarsebasearcepayment13 + coarsebasearcepayment113 coarsebaseacredirectpayments14 <- acreyear2014*0.8*coarsebasedirectpayments coarsebaseacreLDP14 <- acreyear2014*0.7*coarsebaseLDPactualpaid coarsebasearceMax14 <- acreyear2014*ifelse(coarsebasefarmprice<87, 25, 0) coarsebasearcetestupper14 <- acreyear2014*ifelse(coarsebasefarmprice<140, 1, 0) coarsebasearcetestlower14 <- acreyear2014*ifelse(coarsebasefarmprice>87, 1, 0) coarsebasearcepayment14 <- acreyear2014*coarsebasearcetestupper14*coarsebasearcetestlower14*(acre2014coarsea-acre2014coarseb*coarsebasefarmprice) coarsebasearcepayment114 <- ifelse(coarsebasearcepayment14>0, 1, 0) coarsebasearcetotalacreprogram14 <- coarsebaseacredirectpayments14 + coarsebaseacreLDP14 + coarsebasearceMax14 + coarsebasearcepayment14 + coarsebasearcepayment114 coarsebaseacredirectpayments15 <- acreyear2015*0.8*coarsebasedirectpayments coarsebaseacreLDP15 <- acreyear2015*0.7*coarsebaseLDPactualpaid coarsebasearceMax15 <- acreyear2015*ifelse(coarsebasefarmprice<87, 25, 0) coarsebasearcetestupper15 <- acreyear2015*ifelse(coarsebasefarmprice<140, 1, 0) coarsebasearcetestlower15 <- acreyear2015*ifelse(coarsebasefarmprice>87, 1, 0) coarsebasearcepayment15 <- acreyear2015*coarsebasearcetestupper15*coarsebasearcetestlower15*(acre2015coarsea-acre2015coarseb*coarsebasefarmprice) coarsebasearcepayment115 <- ifelse(coarsebasearcepayment15>0, 1, 0) coarsebasearcetotalacreprogram15 <- coarsebaseacredirectpayments15 + coarsebaseacreLDP15 + coarsebasearceMax15 + coarsebasearcepayment15 + coarsebasearcepayment115 coarsebaseacredirectpayments16 <- acreyear2016*0.8*coarsebasedirectpayments coarsebaseacreLDP16 <- acreyear2016*0.7*coarsebaseLDPactualpaid coarsebasearceMax16 <- acreyear2016*ifelse(coarsebasefarmprice<87, 25, 0) coarsebasearcetestupper16 <- acreyear2016*ifelse(coarsebasefarmprice<140, 1, 0) coarsebasearcetestlower16 <- acreyear2016*ifelse(coarsebasefarmprice>87, 1, 0) coarsebasearcepayment16 <- acreyear2016*coarsebasearcetestupper16*coarsebasearcetestlower16*(acre2016coarsea-acre2016coarseb*coarsebasefarmprice) coarsebasearcepayment116 <- ifelse(coarsebasearcepayment16>0, 1, 0) coarsebasearcetotalacreprogram16 <- coarsebaseacredirectpayments16 + coarsebaseacreLDP16 + coarsebasearceMax16 + coarsebasearcepayment16 + coarsebasearcepayment116 coarsebaseacredirectpayments17 <- acreyear2017*0.8*coarsebasedirectpayments coarsebaseacreLDP17 <- acreyear2017*0.7*coarsebaseLDPactualpaid coarsebasearceMax17 <- acreyear2017*ifelse(coarsebasefarmprice<87, 25, 0) coarsebasearcetestupper17 <- acreyear2017*ifelse(coarsebasefarmprice<140, 1, 0) coarsebasearcetestlower17 <- acreyear2017*ifelse(coarsebasefarmprice>87, 1, 0) coarsebasearcepayment17 <- acreyear2017*coarsebasearcetestupper17*coarsebasearcetestlower17*(acre2017coarsea-acre2017coarseb*coarsebasefarmprice) coarsebasearcepayment117 <- ifelse(coarsebasearcepayment17>0, 1, 0) coarsebasearcetotalacreprogram17 <- coarsebaseacredirectpayments17 + coarsebaseacreLDP17 + coarsebasearceMax17 + coarsebasearcepayment17 + coarsebasearcepayment117 coarsebaseacredirectpayments18 <- acreyear2018*0.8*coarsebasedirectpayments coarsebaseacreLDP18 <- acreyear2018*0.7*coarsebaseLDPactualpaid coarsebasearceMax18 <- acreyear2018*ifelse(coarsebasefarmprice<87, 25, 0) coarsebasearcetestupper18 <- acreyear2018*ifelse(coarsebasefarmprice<140, 1, 0) coarsebasearcetestlower18 <- acreyear2018*ifelse(coarsebasefarmprice>87, 1, 0) coarsebasearcepayment18 <- acreyear2018*coarsebasearcetestupper18*coarsebasearcetestlower18*(acre2018coarsea-acre2018coarseb*coarsebasefarmprice) coarsebasearcepayment118 <- ifelse(coarsebasearcepayment18>0, 1, 0) coarsebasearcetotalacreprogram18 <- coarsebaseacredirectpayments18 + coarsebaseacreLDP18 + coarsebasearceMax18 + coarsebasearcepayment18 + coarsebasearcepayment118 coarsenewacredirectpayments <- coarsebasedirectpayments+commoditypolicy[i,4] coarsenewacredirectpayments09 <- acreyear2009*0.8*coarsenewdirectpayments coarsenewacreLDP09 <- acreyear2009*0.7*coarsenewLDPactualpaid coarsenewarceMax09 <- acreyear2009*ifelse(coarsenewfarmprice<110, 31, 0) coarsenewarcetestupper09 <- acreyear2009*ifelse(coarsenewfarmprice<149, 1, 0) coarsenewarcetestlower09 <- acreyear2009*ifelse(coarsenewfarmprice>110, 1, 0) coarsenewarcepayment09 <- acreyear2009*coarsenewarcetestupper09*coarsenewarcetestlower09*(acre2009coarsea-acre2009coarseb*coarsenewfarmprice) coarsenewarcepayment109 <- ifelse(coarsenewarcepayment09>0, 1, 0) coarsenewarcetotalacreprogram09 <- coarsenewacredirectpayments09 + coarsenewacreLDP09 + coarsenewarceMax09 + coarsenewarcepayment09 + coarsenewarcepayment109 coarsenewacredirectpayments10 <- acreyear2010*0.8*coarsenewdirectpayments coarsenewacreLDP10 <- acreyear2010*0.7*coarsenewLDPactualpaid coarsenewarceMax10 <- acreyear2010*ifelse(coarsenewfarmprice<98, 28, 0) coarsenewarcetestupper10 <- acreyear2010*ifelse(coarsenewfarmprice<141, 1, 0) coarsenewarcetestlower10 <- acreyear2010*ifelse(coarsenewfarmprice>98, 1, 0) coarsenewarcepayment10 <- acreyear2010*coarsenewarcetestupper10*coarsenewarcetestlower10*(acre2010coarsea-acre2010coarseb*coarsenewfarmprice) coarsenewarcepayment110 <- ifelse(coarsenewarcepayment10>0, 1, 0) coarsenewarcetotalacreprogram10 <- coarsenewacredirectpayments10+ coarsenewacreLDP10 + coarsenewarceMax10 + coarsenewarcepayment10 + coarsenewarcepayment110 coarsenewacredirectpayments11 <- acreyear2011*0.8*coarsenewdirectpayments coarsenewacreLDP11 <- acreyear2011*0.7*coarsenewLDPactualpaid coarsenewarceMax11 <- acreyear2011*ifelse(coarsenewfarmprice<94, 26, 0) coarsenewarcetestupper11 <- acreyear2011*ifelse(coarsenewfarmprice<140, 1, 0) coarsenewarcetestlower11 <- acreyear2011*ifelse(coarsenewfarmprice>94, 1, 0) coarsenewarcepayment11 <- acreyear2011*coarsenewarcetestupper11*coarsenewarcetestlower11*(acre2011coarsea-acre2011coarseb*coarsenewfarmprice) coarsenewarcepayment111 <- ifelse(coarsenewarcepayment11>0, 1, 0) coarsenewarcetotalacreprogram11 <- coarsenewacredirectpayments11 + coarsenewacreLDP11 + coarsenewarceMax11 + coarsenewarcepayment11 + coarsenewarcepayment111 coarsenewacredirectpayments12 <- acreyear2012*0.8*coarsenewdirectpayments coarsenewacreLDP12 <- acreyear2012*0.7*coarsenewLDPactualpaid coarsenewarceMax12 <- acreyear2012*ifelse(coarsenewfarmprice<87, 25, 0) coarsenewarcetestupper12 <- acreyear2012*ifelse(coarsenewfarmprice<140, 1, 0) coarsenewarcetestlower12 <- acreyear2012*ifelse(coarsenewfarmprice>87, 1, 0) coarsenewarcepayment12 <- acreyear2012*coarsenewarcetestupper12*coarsenewarcetestlower12*(acre2012coarsea-acre2012coarseb*coarsenewfarmprice) coarsenewarcepayment112 <- ifelse(coarsenewarcepayment12>0, 1, 0) coarsenewarcetotalacreprogram12 <- coarsenewacredirectpayments12 + coarsenewacreLDP12 + coarsenewarceMax12 + coarsenewarcepayment12 + coarsenewarcepayment112 coarsenewacredirectpayments13 <- acreyear2013*0.8*coarsenewdirectpayments coarsenewacreLDP13 <- acreyear2013*0.7*coarsenewLDPactualpaid coarsenewarceMax13 <- acreyear2013*ifelse(coarsenewfarmprice<87, 25, 0) coarsenewarcetestupper13 <- acreyear2013*ifelse(coarsenewfarmprice<140, 1, 0) coarsenewarcetestlower13 <- acreyear2013*ifelse(coarsenewfarmprice>87, 1, 0) coarsenewarcepayment13 <- acreyear2013*coarsenewarcetestupper13*coarsenewarcetestlower13*(acre2013coarsea-acre2013coarseb*coarsenewfarmprice) coarsenewarcepayment113 <- ifelse(coarsenewarcepayment13>0, 1, 0) coarsenewarcetotalacreprogram13 <- coarsenewacredirectpayments13 + coarsenewacreLDP13 + coarsenewarceMax13 + coarsenewarcepayment13 + coarsenewarcepayment113 coarsenewacredirectpayments14 <- acreyear2014*0.8*coarsenewdirectpayments coarsenewacreLDP14 <- acreyear2014*0.7*coarsenewLDPactualpaid coarsenewarceMax14 <- acreyear2014*ifelse(coarsenewfarmprice<87, 25, 0) coarsenewarcetestupper14 <- acreyear2014*ifelse(coarsenewfarmprice<140, 1, 0) coarsenewarcetestlower14 <- acreyear2014*ifelse(coarsenewfarmprice>87, 1, 0) coarsenewarcepayment14 <- acreyear2014*coarsenewarcetestupper14*coarsenewarcetestlower14*(acre2014coarsea-acre2014coarseb*coarsenewfarmprice) coarsenewarcepayment114 <- ifelse(coarsenewarcepayment14>0, 1, 0) coarsenewarcetotalacreprogram14 <- coarsenewacredirectpayments14 + coarsenewacreLDP14 + coarsenewarceMax14 + coarsenewarcepayment14 + coarsenewarcepayment114 coarsenewacredirectpayments15 <- acreyear2015*0.8*coarsenewdirectpayments coarsenewacreLDP15 <- acreyear2015*0.7*coarsenewLDPactualpaid coarsenewarceMax15 <- acreyear2015*ifelse(coarsenewfarmprice<87, 25, 0) coarsenewarcetestupper15 <- acreyear2015*ifelse(coarsenewfarmprice<140, 1, 0) coarsenewarcetestlower15 <- acreyear2015*ifelse(coarsenewfarmprice>87, 1, 0) coarsenewarcepayment15 <- acreyear2015*coarsenewarcetestupper15*coarsenewarcetestlower15*(acre2015coarsea-acre2015coarseb*coarsenewfarmprice) coarsenewarcepayment115 <- ifelse(coarsenewarcepayment15>0, 1, 0) coarsenewarcetotalacreprogram15 <- coarsenewacredirectpayments15 + coarsenewacreLDP15 + coarsenewarceMax15 + coarsenewarcepayment15 + coarsenewarcepayment115 coarsenewacredirectpayments16 <- acreyear2016*0.8*coarsenewdirectpayments coarsenewacreLDP16 <- acreyear2016*0.7*coarsenewLDPactualpaid coarsenewarceMax16 <- acreyear2016*ifelse(coarsenewfarmprice<87, 25, 0) coarsenewarcetestupper16 <- acreyear2016*ifelse(coarsenewfarmprice<140, 1, 0) coarsenewarcetestlower16 <- acreyear2016*ifelse(coarsenewfarmprice>87, 1, 0) coarsenewarcepayment16 <- acreyear2016*coarsenewarcetestupper16*coarsenewarcetestlower16*(acre2016coarsea-acre2016coarseb*coarsenewfarmprice) coarsenewarcepayment116 <- ifelse(coarsenewarcepayment16>0, 1, 0) coarsenewarcetotalacreprogram16 <- coarsenewacredirectpayments16 + coarsenewacreLDP16 + coarsenewarceMax16 + coarsenewarcepayment16 + coarsenewarcepayment116 coarsenewacredirectpayments17 <- acreyear2017*0.8*coarsenewdirectpayments coarsenewacreLDP17 <- acreyear2017*0.7*coarsenewLDPactualpaid coarsenewarceMax17 <- acreyear2017*ifelse(coarsenewfarmprice<87, 25, 0) coarsenewarcetestupper17 <- acreyear2017*ifelse(coarsenewfarmprice<140, 1, 0) coarsenewarcetestlower17 <- acreyear2017*ifelse(coarsenewfarmprice>87, 1, 0) coarsenewarcepayment17 <- acreyear2017*coarsenewarcetestupper17*coarsenewarcetestlower17*(acre2017coarsea-acre2017coarseb*coarsenewfarmprice) coarsenewarcepayment117 <- ifelse(coarsenewarcepayment17>0, 1, 0) coarsenewarcetotalacreprogram17 <- coarsenewacredirectpayments17 + coarsenewacreLDP17 + coarsenewarceMax17 + coarsenewarcepayment17 + coarsenewarcepayment117 coarsenewacredirectpayments18 <- acreyear2018*0.8*coarsenewdirectpayments coarsenewacreLDP18 <- acreyear2018*0.7*coarsenewLDPactualpaid coarsenewarceMax18 <- acreyear2018*ifelse(coarsenewfarmprice<87, 25, 0) coarsenewarcetestupper18 <- acreyear2018*ifelse(coarsenewfarmprice<140, 1, 0) coarsenewarcetestlower18 <- acreyear2018*ifelse(coarsenewfarmprice>87, 1, 0) coarsenewarcepayment18 <- acreyear2018*coarsenewarcetestupper18*coarsenewarcetestlower18*(acre2018coarsea-acre2018coarseb*coarsenewfarmprice) coarsenewarcepayment118 <- ifelse(coarsenewarcepayment18>0, 1, 0) coarsenewarcetotalacreprogram18 <- coarsenewacredirectpayments18 + coarsenewacreLDP18 + coarsenewarceMax18 + coarsenewarcepayment18 + coarsenewarcepayment118 ## soybeans acre2009soybeansa <- 268.615 acre2009soybeansb <- 0.79934 acre2010soybeansa <- 234.77 acre2010soybeansb <- 0.79542 acre2011soybeansa <- 204.1851 acre2011soybeansb <- 0.78684 acre2012soybeansa <- 186.5844 acre2012soybeansb <- 0.81359 acre2013soybeansa <- 171.3398 acre2013soybeansb <- 0.82162 acre2014soybeansa <- 171.3398 acre2014soybeansb <- 0.82162 acre2015soybeansa <- 171.3398 acre2015soybeansb <- 0.82162 acre2016soybeansa <- 171.3398 acre2016soybeansb <- 0.82162 acre2017soybeansa <- 171.3398 acre2017soybeansb <- 0.82162 acre2018soybeansa <- 171.3398 acre2018soybeansb <- 0.82162 acre2019soybeansa <- 171.3398 acre2019soybeansb <- 0.82162 soybeansbasedirectpayments <- farmpolicy[i,3]*2204.6/60 soybeansbaseacredirectpayments09 <- acreyear2009*0.8*soybeansbasedirectpayments soybeansbaseacreLDP09 <- acreyear2009*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax09 <- acreyear2009*ifelse(soybeansbasefarmprice<249, 68, 0) soybeansbasearcetestupper09 <- acreyear2009*ifelse(soybeansbasefarmprice<335, 1, 0) soybeansbasearcetestlower09 <- acreyear2009*ifelse(soybeansbasefarmprice>249, 1, 0) soybeansbasearcepayment09 <- acreyear2009*soybeansbasearcetestupper09*soybeansbasearcetestlower09*(acre2009soybeansa-acre2009soybeansb*soybeansbasefarmprice) soybeansbasearcepayment109 <- ifelse(soybeansbasearcepayment09>0, 1, 0) soybeansbasearcetotalacreprogram09 <- soybeansbaseacredirectpayments09 + soybeansbaseacreLDP09 + soybeansbasearceMax09 + soybeansbasearcepayment09 + soybeansbasearcepayment109 soybeansbaseacredirectpayments10 <- acreyear2010*0.8*soybeansbasedirectpayments soybeansbaseacreLDP10 <- acreyear2010*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax10 <- acreyear2010*ifelse(soybeansbasefarmprice<220, 59, 0) soybeansbasearcetestupper10 <- acreyear2010*ifelse(soybeansbasefarmprice<295, 1, 0) soybeansbasearcetestlower10 <- acreyear2010*ifelse(soybeansbasefarmprice>220, 1, 0) soybeansbasearcepayment10 <- acreyear2010*soybeansbasearcetestupper10*soybeansbasearcetestlower10*(acre2010soybeansa-acre2010soybeansb*soybeansbasefarmprice) soybeansbasearcepayment110 <- ifelse(soybeansbasearcepayment10>0, 1, 0) soybeansbasearcetotalacreprogram10 <- soybeansbaseacredirectpayments10 + soybeansbaseacreLDP10 + soybeansbasearceMax10 + soybeansbasearcepayment10 + soybeansbasearcepayment110 soybeansbaseacredirectpayments11 <- acreyear2011*0.8*soybeansbasedirectpayments soybeansbaseacreLDP11 <- acreyear2011*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax11 <- acreyear2011*ifelse(soybeansbasefarmprice<191, 58, 0) soybeansbasearcetestupper11 <- acreyear2011*ifelse(soybeansbasefarmprice<258, 1, 0) soybeansbasearcetestlower11 <- acreyear2011*ifelse(soybeansbasefarmprice>191, 1, 0) soybeansbasearcepayment11 <- acreyear2011*soybeansbasearcetestupper11*soybeansbasearcetestlower11*(acre2011soybeansa-acre2011soybeansb*soybeansbasefarmprice) soybeansbasearcepayment111 <- ifelse(soybeansbasearcepayment11>0, 1, 0) soybeansbasearcetotalacreprogram11 <- soybeansbaseacredirectpayments11 + soybeansbaseacreLDP11 + soybeansbasearceMax11 + soybeansbasearcepayment11 + soybeansbasearcepayment111 soybeansbaseacredirectpayments12 <- acreyear2012*0.8*soybeansbasedirectpayments soybeansbaseacreLDP12 <- acreyear2012*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax12 <- acreyear2012*ifelse(soybeansbasefarmprice<169, 48, 0) soybeansbasearcetestupper12 <- acreyear2012*ifelse(soybeansbasefarmprice<230, 1, 0) soybeansbasearcetestlower12 <- acreyear2012*ifelse(soybeansbasefarmprice>169, 1, 0) soybeansbasearcepayment12 <- acreyear2012*soybeansbasearcetestupper12*soybeansbasearcetestlower12*(acre2012soybeansa-acre2012soybeansb*soybeansbasefarmprice) soybeansbasearcepayment112 <- ifelse(soybeansbasearcepayment12>0, 1, 0) soybeansbasearcetotalacreprogram12 <- soybeansbaseacredirectpayments12 + soybeansbaseacreLDP12 + soybeansbasearceMax12 + soybeansbasearcepayment12 + soybeansbasearcepayment112 soybeansbaseacredirectpayments13 <- acreyear2013*0.8*soybeansbasedirectpayments soybeansbaseacreLDP13 <- acreyear2013*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax13 <- acreyear2013*ifelse(soybeansbasefarmprice<154, 44, 0) soybeansbasearcetestupper13 <- acreyear2013*ifelse(soybeansbasefarmprice<208, 1, 0) soybeansbasearcetestlower13 <- acreyear2013*ifelse(soybeansbasefarmprice>154, 1, 0) soybeansbasearcepayment13 <- acreyear2013*soybeansbasearcetestupper13*soybeansbasearcetestlower13*(acre2013soybeansa-acre2013soybeansb*soybeansbasefarmprice) soybeansbasearcepayment113 <- ifelse(soybeansbasearcepayment13>0, 1, 0) soybeansbasearcetotalacreprogram13 <- soybeansbaseacredirectpayments13 + soybeansbaseacreLDP13 + soybeansbasearceMax13 + soybeansbasearcepayment13 + soybeansbasearcepayment113 soybeansbaseacredirectpayments14 <- acreyear2014*0.8*soybeansbasedirectpayments soybeansbaseacreLDP14 <- acreyear2014*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax14 <- acreyear2014*ifelse(soybeansbasefarmprice<154, 44, 0) soybeansbasearcetestupper14 <- acreyear2014*ifelse(soybeansbasefarmprice<208, 1, 0) soybeansbasearcetestlower14 <- acreyear2014*ifelse(soybeansbasefarmprice>154, 1, 0) soybeansbasearcepayment14 <- acreyear2014*soybeansbasearcetestupper14*soybeansbasearcetestlower14*(acre2014soybeansa-acre2014soybeansb*soybeansbasefarmprice) soybeansbasearcepayment114 <- ifelse(soybeansbasearcepayment14>0, 1, 0) soybeansbasearcetotalacreprogram14 <- soybeansbaseacredirectpayments14 + soybeansbaseacreLDP14 + soybeansbasearceMax14 + soybeansbasearcepayment14 + soybeansbasearcepayment114 soybeansbaseacredirectpayments15 <- acreyear2015*0.8*soybeansbasedirectpayments soybeansbaseacreLDP15 <- acreyear2015*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax15 <- acreyear2015*ifelse(soybeansbasefarmprice<154, 44, 0) soybeansbasearcetestupper15 <- acreyear2015*ifelse(soybeansbasefarmprice<208, 1, 0) soybeansbasearcetestlower15 <- acreyear2015*ifelse(soybeansbasefarmprice>154, 1, 0) soybeansbasearcepayment15 <- acreyear2015*soybeansbasearcetestupper15*soybeansbasearcetestlower15*(acre2015soybeansa-acre2015soybeansb*soybeansbasefarmprice) soybeansbasearcepayment115 <- ifelse(soybeansbasearcepayment15>0, 1, 0) soybeansbasearcetotalacreprogram15 <- soybeansbaseacredirectpayments15 + soybeansbaseacreLDP15 + soybeansbasearceMax15 + soybeansbasearcepayment15 + soybeansbasearcepayment115 soybeansbaseacredirectpayments16 <- acreyear2016*0.8*soybeansbasedirectpayments soybeansbaseacreLDP16 <- acreyear2016*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax16 <- acreyear2016*ifelse(soybeansbasefarmprice<154, 44, 0) soybeansbasearcetestupper16 <- acreyear2016*ifelse(soybeansbasefarmprice<208, 1, 0) soybeansbasearcetestlower16 <- acreyear2016*ifelse(soybeansbasefarmprice>154, 1, 0) soybeansbasearcepayment16 <- acreyear2016*soybeansbasearcetestupper16*soybeansbasearcetestlower16*(acre2016soybeansa-acre2016soybeansb*soybeansbasefarmprice) soybeansbasearcepayment116 <- ifelse(soybeansbasearcepayment16>0, 1, 0) soybeansbasearcetotalacreprogram16 <- soybeansbaseacredirectpayments16 + soybeansbaseacreLDP16 + soybeansbasearceMax16 + soybeansbasearcepayment16 + soybeansbasearcepayment116 soybeansbaseacredirectpayments17 <- acreyear2017*0.8*soybeansbasedirectpayments soybeansbaseacreLDP17 <- acreyear2017*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax17 <- acreyear2017*ifelse(soybeansbasefarmprice<154, 44, 0) soybeansbasearcetestupper17 <- acreyear2017*ifelse(soybeansbasefarmprice<208, 1, 0) soybeansbasearcetestlower17 <- acreyear2017*ifelse(soybeansbasefarmprice>154, 1, 0) soybeansbasearcepayment17 <- acreyear2017*soybeansbasearcetestupper17*soybeansbasearcetestlower17*(acre2017soybeansa-acre2017soybeansb*soybeansbasefarmprice) soybeansbasearcepayment117 <- ifelse(soybeansbasearcepayment17>0, 1, 0) soybeansbasearcetotalacreprogram17 <- soybeansbaseacredirectpayments17 + soybeansbaseacreLDP17 + soybeansbasearceMax17 + soybeansbasearcepayment17 + soybeansbasearcepayment117 soybeansbaseacredirectpayments18 <- acreyear2018*0.8*soybeansbasedirectpayments soybeansbaseacreLDP18 <- acreyear2018*0.7*soybeansbaseLDPactualpaid soybeansbasearceMax18 <- acreyear2018*ifelse(soybeansbasefarmprice<154, 44, 0) soybeansbasearcetestupper18 <- acreyear2018*ifelse(soybeansbasefarmprice<208, 1, 0) soybeansbasearcetestlower18 <- acreyear2018*ifelse(soybeansbasefarmprice>154, 1, 0) soybeansbasearcepayment18 <- acreyear2018*soybeansbasearcetestupper18*soybeansbasearcetestlower18*(acre2018soybeansa-acre2018soybeansb*soybeansbasefarmprice) soybeansbasearcepayment118 <- ifelse(soybeansbasearcepayment18>0, 1, 0) soybeansbasearcetotalacreprogram18 <- soybeansbaseacredirectpayments18 + soybeansbaseacreLDP18 + soybeansbasearceMax18 + soybeansbasearcepayment18 + soybeansbasearcepayment118 soybeansnewdirectpayments <- soybeansbasedirectpayments+commoditypolicy[i,3] soybeansnewacredirectpayments09 <- acreyear2009*0.8*soybeansnewdirectpayments soybeansnewacreLDP09 <- acreyear2009*0.7*soybeansnewLDPactualpaid soybeansnewarceMax09 <- acreyear2009*ifelse(soybeansnewfarmprice<249, 68, 0) soybeansnewarcetestupper09 <- acreyear2009*ifelse(soybeansnewfarmprice<335, 1, 0) soybeansnewarcetestlower09 <- acreyear2009*ifelse(soybeansnewfarmprice>249, 1, 0) soybeansnewarcepayment09 <- acreyear2009*soybeansnewarcetestupper09*soybeansnewarcetestlower09*(acre2009soybeansa-acre2009soybeansb*soybeansnewfarmprice) soybeansnewarcepayment109 <- ifelse(soybeansnewarcepayment09>0, 1, 0) soybeansnewarcetotalacreprogram09 <- soybeansnewacredirectpayments09 + soybeansnewacreLDP09 + soybeansnewarceMax09 + soybeansnewarcepayment09 + soybeansnewarcepayment109 soybeansnewacredirectpayments10 <- acreyear2010*0.8*soybeansnewdirectpayments soybeansnewacreLDP10 <- acreyear2010*0.7*soybeansnewLDPactualpaid soybeansnewarceMax10 <- acreyear2010*ifelse(soybeansnewfarmprice<220, 59, 0) soybeansnewarcetestupper10 <- acreyear2010*ifelse(soybeansnewfarmprice<295, 1, 0) soybeansnewarcetestlower10 <- acreyear2010*ifelse(soybeansnewfarmprice>220, 1, 0) soybeansnewarcepayment10 <- acreyear2010*soybeansnewarcetestupper10*soybeansnewarcetestlower10*(acre2010soybeansa-acre2010soybeansb*soybeansnewfarmprice) soybeansnewarcepayment110 <- ifelse(soybeansnewarcepayment10>0, 1, 0) soybeansnewarcetotalacreprogram10 <- soybeansnewacredirectpayments10 + soybeansnewacreLDP10 + soybeansnewarceMax10 + soybeansnewarcepayment10 + soybeansnewarcepayment110 soybeansnewacredirectpayments11 <- acreyear2011*0.8*soybeansnewdirectpayments soybeansnewacreLDP11 <- acreyear2011*0.7*soybeansnewLDPactualpaid soybeansnewarceMax11 <- acreyear2011*ifelse(soybeansnewfarmprice<191, 58, 0) soybeansnewarcetestupper11 <- acreyear2011*ifelse(soybeansnewfarmprice<258, 1, 0) soybeansnewarcetestlower11 <- acreyear2011*ifelse(soybeansnewfarmprice>191, 1, 0) soybeansnewarcepayment11 <- acreyear2011*soybeansnewarcetestupper11*soybeansnewarcetestlower11*(acre2011soybeansa-acre2011soybeansb*soybeansnewfarmprice) soybeansnewarcepayment111 <- ifelse(soybeansnewarcepayment11>0, 1, 0) soybeansnewarcetotalacreprogram11 <- soybeansnewacredirectpayments11 + soybeansnewacreLDP11 + soybeansnewarceMax11 + soybeansnewarcepayment11 + soybeansnewarcepayment111 soybeansnewacredirectpayments12 <- acreyear2012*0.8*soybeansnewdirectpayments soybeansnewacreLDP12 <- acreyear2012*0.7*soybeansnewLDPactualpaid soybeansnewarceMax12 <- acreyear2012*ifelse(soybeansnewfarmprice<169, 48, 0) soybeansnewarcetestupper12 <- acreyear2012*ifelse(soybeansnewfarmprice<230, 1, 0) soybeansnewarcetestlower12 <- acreyear2012*ifelse(soybeansnewfarmprice>169, 1, 0) soybeansnewarcepayment12 <- acreyear2012*soybeansnewarcetestupper12*soybeansnewarcetestlower12*(acre2012soybeansa-acre2012soybeansb*soybeansnewfarmprice) soybeansnewarcepayment112 <- ifelse(soybeansnewarcepayment12>0, 1, 0) soybeansnewarcetotalacreprogram12 <- soybeansnewacredirectpayments12 + soybeansnewacreLDP12 + soybeansnewarceMax12 + soybeansnewarcepayment12 + soybeansnewarcepayment112 soybeansnewacredirectpayments13 <- acreyear2013*0.8*soybeansnewdirectpayments soybeansnewacreLDP13 <- acreyear2013*0.7*soybeansnewLDPactualpaid soybeansnewarceMax13 <- acreyear2013*ifelse(soybeansnewfarmprice<154, 44, 0) soybeansnewarcetestupper13 <- acreyear2013*ifelse(soybeansnewfarmprice<208, 1, 0) soybeansnewarcetestlower13 <- acreyear2013*ifelse(soybeansnewfarmprice>154, 1, 0) soybeansnewarcepayment13 <- acreyear2013*soybeansnewarcetestupper13*soybeansnewarcetestlower13*(acre2013soybeansa-acre2013soybeansb*soybeansnewfarmprice) soybeansnewarcepayment113 <- ifelse(soybeansnewarcepayment13>0, 1, 0) soybeansnewarcetotalacreprogram13 <- soybeansnewacredirectpayments13 + soybeansnewacreLDP13 + soybeansnewarceMax13 + soybeansnewarcepayment13 + soybeansnewarcepayment113 soybeansnewacredirectpayments14 <- acreyear2014*0.8*soybeansnewdirectpayments soybeansnewacreLDP14 <- acreyear2014*0.7*soybeansnewLDPactualpaid soybeansnewarceMax14 <- acreyear2014*ifelse(soybeansnewfarmprice<154, 44, 0) soybeansnewarcetestupper14 <- acreyear2014*ifelse(soybeansnewfarmprice<208, 1, 0) soybeansnewarcetestlower14 <- acreyear2014*ifelse(soybeansnewfarmprice>154, 1, 0) soybeansnewarcepayment14 <- acreyear2014*soybeansnewarcetestupper14*soybeansnewarcetestlower14*(acre2014soybeansa-acre2014soybeansb*soybeansnewfarmprice) soybeansnewarcepayment114 <- ifelse(soybeansnewarcepayment14>0, 1, 0) soybeansnewarcetotalacreprogram14 <- soybeansnewacredirectpayments14 + soybeansnewacreLDP14 + soybeansnewarceMax14 + soybeansnewarcepayment14 + soybeansnewarcepayment114 soybeansnewacredirectpayments15 <- acreyear2015*0.8*soybeansnewdirectpayments soybeansnewacreLDP15 <- acreyear2015*0.7*soybeansnewLDPactualpaid soybeansnewarceMax15 <- acreyear2015*ifelse(soybeansnewfarmprice<154, 44, 0) soybeansnewarcetestupper15 <- acreyear2015*ifelse(soybeansnewfarmprice<208, 1, 0) soybeansnewarcetestlower15 <- acreyear2015*ifelse(soybeansnewfarmprice>154, 1, 0) soybeansnewarcepayment15 <- acreyear2015*soybeansnewarcetestupper15*soybeansnewarcetestlower15*(acre2015soybeansa-acre2015soybeansb*soybeansnewfarmprice) soybeansnewarcepayment115 <- ifelse(soybeansnewarcepayment15>0, 1, 0) soybeansnewarcetotalacreprogram15 <- soybeansnewacredirectpayments15 + soybeansnewacreLDP15 + soybeansnewarceMax15 + soybeansnewarcepayment15 + soybeansnewarcepayment115 soybeansnewacredirectpayments16 <- acreyear2016*0.8*soybeansnewdirectpayments soybeansnewacreLDP16 <- acreyear2016*0.7*soybeansnewLDPactualpaid soybeansnewarceMax16 <- acreyear2016*ifelse(soybeansnewfarmprice<154, 44, 0) soybeansnewarcetestupper16 <- acreyear2016*ifelse(soybeansnewfarmprice<208, 1, 0) soybeansnewarcetestlower16 <- acreyear2016*ifelse(soybeansnewfarmprice>154, 1, 0) soybeansnewarcepayment16 <- acreyear2016*soybeansnewarcetestupper16*soybeansnewarcetestlower16*(acre2016soybeansa-acre2016soybeansb*soybeansnewfarmprice) soybeansnewarcepayment116 <- ifelse(soybeansnewarcepayment16>0, 1, 0) soybeansnewarcetotalacreprogram16 <- soybeansnewacredirectpayments16 + soybeansnewacreLDP16 + soybeansnewarceMax16 + soybeansnewarcepayment16 + soybeansnewarcepayment116 soybeansnewacredirectpayments17 <- acreyear2017*0.8*soybeansnewdirectpayments soybeansnewacreLDP17 <- acreyear2017*0.7*soybeansnewLDPactualpaid soybeansnewarceMax17 <- acreyear2017*ifelse(soybeansnewfarmprice<154, 44, 0) soybeansnewarcetestupper17 <- acreyear2017*ifelse(soybeansnewfarmprice<208, 1, 0) soybeansnewarcetestlower17 <- acreyear2017*ifelse(soybeansnewfarmprice>154, 1, 0) soybeansnewarcepayment17 <- acreyear2017*soybeansnewarcetestupper17*soybeansnewarcetestlower17*(acre2017soybeansa-acre2017soybeansb*soybeansnewfarmprice) soybeansnewarcepayment117 <- ifelse(soybeansnewarcepayment17>0, 1, 0) soybeansnewarcetotalacreprogram17 <- soybeansnewacredirectpayments17 + soybeansnewacreLDP17 + soybeansnewarceMax17 + soybeansnewarcepayment17 + soybeansnewarcepayment117 soybeansnewacredirectpayments18 <- acreyear2018*0.8*soybeansnewdirectpayments soybeansnewacreLDP18 <- acreyear2018*0.7*soybeansnewLDPactualpaid soybeansnewarceMax18 <- acreyear2018*ifelse(soybeansnewfarmprice<154, 44, 0) soybeansnewarcetestupper18 <- acreyear2018*ifelse(soybeansnewfarmprice<208, 1, 0) soybeansnewarcetestlower18 <- acreyear2018*ifelse(soybeansnewfarmprice>154, 1, 0) soybeansnewarcepayment18 <- acreyear2018*soybeansnewarcetestupper18*soybeansnewarcetestlower18*(acre2018soybeansa-acre2018soybeansb*soybeansnewfarmprice) soybeansnewarcepayment118 <- ifelse(soybeansnewarcepayment18>0, 1, 0) soybeansnewarcetotalacreprogram18 <- soybeansnewacredirectpayments18 + soybeansnewacreLDP18 + soybeansnewarceMax18 + soybeansnewarcepayment18 + soybeansnewarcepayment118 ## wheat acre2009wheata <- 170.7837 acre2009wheatb <- 0.8167 acre2010wheata <- 185.0566 acre2010wheatb <- 0.83575 acre2011wheata <- 169.8605 acre2011wheatb <- 0.86013 acre2012wheata <- 149.8371 acre2012wheatb <- 0.8473 acre2013wheata <- 145.7053 acre2013wheatb <- 0.84655 acre2014wheata <- 145.7053 acre2014wheatb <- 0.84655 acre2015wheata <- 145.7053 acre2015wheatb <- 0.84655 acre2016wheata <- 145.7053 acre2016wheatb <- 0.84655 acre2017wheata <- 145.7053 acre2017wheatb <- 0.84655 acre2018wheata <- 145.7053 acre2018wheatb <- 0.84655 acre2019wheata <- 145.7053 acre2019wheatb <- 0.84655 wheatbasedirectpayments <- farmpolicy[i,1]*2204.6/60 wheatbaseacredirectpayments09 <- acreyear2009*0.8*wheatbasedirectpayments wheatbaseacreLDP09 <- acreyear2009*0.7*wheatbaseLDPactualpaid wheatbasearceMax09 <- acreyear2009*ifelse(wheatbasefarmprice<154, 44, 0) wheatbasearcetestupper09 <- acreyear2009*ifelse(wheatbasefarmprice<206, 1, 0) wheatbasearcetestlower09 <- acreyear2009*ifelse(wheatbasefarmprice>154, 1, 0) wheatbasearcepayment09 <- acreyear2009*wheatbasearcetestupper09*wheatbasearcetestlower09*(acre2009wheata-acre2009wheatb*wheatbasefarmprice) wheatbasearcepayment109 <- ifelse(wheatbasearcepayment09>0, 1, 0) wheatbasearcetotalacreprogram09 <- wheatbaseacredirectpayments09 + wheatbaseacreLDP09 + wheatbasearceMax09 + wheatbasearcepayment09 + wheatbasearcepayment109 wheatbaseacredirectpayments10 <- acreyear2010*0.8*wheatbasedirectpayments wheatbaseacreLDP10 <- acreyear2010*0.7*wheatbaseLDPactualpaid wheatbasearceMax10 <- acreyear2010*ifelse(wheatbasefarmprice<165, 47, 0) wheatbasearcetestupper10 <- acreyear2010*ifelse(wheatbasefarmprice<221, 1, 0) wheatbasearcetestlower10 <- acreyear2010*ifelse(wheatbasefarmprice>165, 1, 0) wheatbasearcepayment10 <- acreyear2010*wheatbasearcetestupper10*wheatbasearcetestlower10*(acre2010wheata-acre2010wheatb*wheatbasefarmprice) wheatbasearcepayment110 <- ifelse(wheatbasearcepayment10>0, 1, 0) wheatbasearcetotalacreprogram10 <- wheatbaseacredirectpayments10 + wheatbaseacreLDP10 + wheatbasearceMax10 + wheatbasearcepayment10 + wheatbasearcepayment110 wheatbaseacredirectpayments11 <- acreyear2011*0.8*wheatbasedirectpayments wheatbaseacreLDP11 <- acreyear2011*0.7*wheatbaseLDPactualpaid wheatbasearceMax11 <- acreyear2011*ifelse(wheatbasefarmprice<146, 43, 0) wheatbasearcetestupper11 <- acreyear2011*ifelse(wheatbasefarmprice<197, 1, 0) wheatbasearcetestlower11 <- acreyear2011*ifelse(wheatbasefarmprice>146, 1, 0) wheatbasearcepayment11 <- acreyear2011*wheatbasearcetestupper11*wheatbasearcetestlower11*(acre2011wheata-acre2011wheatb*wheatbasefarmprice) wheatbasearcepayment111 <- ifelse(wheatbasearcepayment11>0, 1, 0) wheatbasearcetotalacreprogram11 <- wheatbaseacredirectpayments11 + wheatbaseacreLDP11 + wheatbasearceMax11 + wheatbasearcepayment11 + wheatbasearcepayment111 wheatbaseacredirectpayments12 <- acreyear2012*0.8*wheatbasedirectpayments wheatbaseacreLDP12 <- acreyear2012*0.7*wheatbaseLDPactualpaid wheatbasearceMax12 <- acreyear2012*ifelse(wheatbasefarmprice<132, 38, 0) wheatbasearcetestupper12 <- acreyear2012*ifelse(wheatbasefarmprice<177, 1, 0) wheatbasearcetestlower12 <- acreyear2012*ifelse(wheatbasefarmprice>132, 1, 0) wheatbasearcepayment12 <- acreyear2012*wheatbasearcetestupper12*wheatbasearcetestlower12*(acre2012wheata-acre2012wheatb*wheatbasefarmprice) wheatbasearcepayment112 <- ifelse(wheatbasearcepayment12>0, 1, 0) wheatbasearcetotalacreprogram12 <- wheatbaseacredirectpayments12 + wheatbaseacreLDP12 + wheatbasearceMax12 + wheatbasearcepayment12 + wheatbasearcepayment112 wheatbaseacredirectpayments13 <- acreyear2013*0.8*wheatbasedirectpayments wheatbaseacreLDP13 <- acreyear2013*0.7*wheatbaseLDPactualpaid wheatbasearceMax13 <- acreyear2013*ifelse(wheatbasefarmprice<128, 37, 0) wheatbasearcetestupper13 <- acreyear2013*ifelse(wheatbasefarmprice<172, 1, 0) wheatbasearcetestlower13 <- acreyear2013*ifelse(wheatbasefarmprice>128, 1, 0) wheatbasearcepayment13 <- acreyear2013*wheatbasearcetestupper13*wheatbasearcetestlower13*(acre2013wheata-acre2013wheatb*wheatbasefarmprice) wheatbasearcepayment113 <- ifelse(wheatbasearcepayment13>0, 1, 0) wheatbasearcetotalacreprogram13 <- wheatbaseacredirectpayments13 + wheatbaseacreLDP13 + wheatbasearceMax13 + wheatbasearcepayment13 + wheatbasearcepayment113 wheatbaseacredirectpayments14 <- acreyear2014*0.8*wheatbasedirectpayments wheatbaseacreLDP14 <- acreyear2014*0.7*wheatbaseLDPactualpaid wheatbasearceMax14 <- acreyear2014*ifelse(wheatbasefarmprice<128, 37, 0) wheatbasearcetestupper14 <- acreyear2014*ifelse(wheatbasefarmprice<172, 1, 0) wheatbasearcetestlower14 <- acreyear2014*ifelse(wheatbasefarmprice>128, 1, 0) wheatbasearcepayment14 <- acreyear2014*wheatbasearcetestupper14*wheatbasearcetestlower14*(acre2014wheata-acre2014wheatb*wheatbasefarmprice) wheatbasearcepayment114 <- ifelse(wheatbasearcepayment14>0, 1, 0) wheatbasearcetotalacreprogram14 <- wheatbaseacredirectpayments14 + wheatbaseacreLDP14 + wheatbasearceMax14 + wheatbasearcepayment14 + wheatbasearcepayment114 wheatbaseacredirectpayments15 <- acreyear2015*0.8*wheatbasedirectpayments wheatbaseacreLDP15 <- acreyear2015*0.7*wheatbaseLDPactualpaid wheatbasearceMax15 <- acreyear2015*ifelse(wheatbasefarmprice<128, 37, 0) wheatbasearcetestupper15 <- acreyear2015*ifelse(wheatbasefarmprice<172, 1, 0) wheatbasearcetestlower15 <- acreyear2015*ifelse(wheatbasefarmprice>128, 1, 0) wheatbasearcepayment15 <- acreyear2015*wheatbasearcetestupper15*wheatbasearcetestlower15*(acre2015wheata-acre2015wheatb*wheatbasefarmprice) wheatbasearcepayment115 <- ifelse(wheatbasearcepayment15>0, 1, 0) wheatbasearcetotalacreprogram15 <- wheatbaseacredirectpayments15 + wheatbaseacreLDP15 + wheatbasearceMax15 + wheatbasearcepayment15 + wheatbasearcepayment115 wheatbaseacredirectpayments16 <- acreyear2016*0.8*wheatbasedirectpayments wheatbaseacreLDP16 <- acreyear2016*0.7*wheatbaseLDPactualpaid wheatbasearceMax16 <- acreyear2016*ifelse(wheatbasefarmprice<128, 37, 0) wheatbasearcetestupper16 <- acreyear2016*ifelse(wheatbasefarmprice<172, 1, 0) wheatbasearcetestlower16 <- acreyear2016*ifelse(wheatbasefarmprice>128, 1, 0) wheatbasearcepayment16 <- acreyear2016*wheatbasearcetestupper16*wheatbasearcetestlower16*(acre2016wheata-acre2016wheatb*wheatbasefarmprice) wheatbasearcepayment116 <- ifelse(wheatbasearcepayment16>0, 1, 0) wheatbasearcetotalacreprogram16 <- wheatbaseacredirectpayments16 + wheatbaseacreLDP16 + wheatbasearceMax16 + wheatbasearcepayment16 + wheatbasearcepayment116 wheatbaseacredirectpayments17 <- acreyear2017*0.8*wheatbasedirectpayments wheatbaseacreLDP17 <- acreyear2017*0.7*wheatbaseLDPactualpaid wheatbasearceMax17 <- acreyear2017*ifelse(wheatbasefarmprice<128, 37, 0) wheatbasearcetestupper17 <- acreyear2017*ifelse(wheatbasefarmprice<172, 1, 0) wheatbasearcetestlower17 <- acreyear2017*ifelse(wheatbasefarmprice>128, 1, 0) wheatbasearcepayment17 <- acreyear2017*wheatbasearcetestupper17*wheatbasearcetestlower17*(acre2017wheata-acre2017wheatb*wheatbasefarmprice) wheatbasearcepayment117 <- ifelse(wheatbasearcepayment17>0, 1, 0) wheatbasearcetotalacreprogram17 <- wheatbaseacredirectpayments17 + wheatbaseacreLDP17 + wheatbasearceMax17 + wheatbasearcepayment17 + wheatbasearcepayment117 wheatbaseacredirectpayments18 <- acreyear2018*0.8*wheatbasedirectpayments wheatbaseacreLDP18 <- acreyear2018*0.7*wheatbaseLDPactualpaid wheatbasearceMax18 <- acreyear2018*ifelse(wheatbasefarmprice<128, 37, 0) wheatbasearcetestupper18 <- acreyear2018*ifelse(wheatbasefarmprice<172, 1, 0) wheatbasearcetestlower18 <- acreyear2018*ifelse(wheatbasefarmprice>128, 1, 0) wheatbasearcepayment18 <- acreyear2018*wheatbasearcetestupper18*wheatbasearcetestlower18*(acre2018wheata-acre2018wheatb*wheatbasefarmprice) wheatbasearcepayment118 <- ifelse(wheatbasearcepayment18>0, 1, 0) wheatbasearcetotalacreprogram18 <- wheatbaseacredirectpayments18 + wheatbaseacreLDP18 + wheatbasearceMax18 + wheatbasearcepayment18 + wheatbasearcepayment118 wheatnewdirectpayments <- wheatbasedirectpayments+commoditypolicy[i,1] wheatnewacredirectpayments09 <- acreyear2009*0.8*wheatnewdirectpayments wheatnewacreLDP09 <- acreyear2009*0.7*wheatnewLDPactualpaid wheatnewarceMax09 <- acreyear2009*ifelse(wheatnewfarmprice<154, 44, 0) wheatnewarcetestupper09 <- acreyear2009*ifelse(wheatnewfarmprice<206, 1, 0) wheatnewarcetestlower09 <- acreyear2009*ifelse(wheatnewfarmprice>154, 1, 0) wheatnewarcepayment09 <- acreyear2009*wheatnewarcetestupper09*wheatnewarcetestlower09*(acre2009wheata-acre2009wheatb*wheatnewfarmprice) wheatnewarcepayment109 <- ifelse(wheatnewarcepayment09>0, 1, 0) wheatnewarcetotalacreprogram09 <- wheatnewacredirectpayments09 + wheatnewacreLDP09 + wheatnewarceMax09 + wheatnewarcepayment09 + wheatnewarcepayment109 wheatnewacredirectpayments10 <- acreyear2010*0.8*wheatnewdirectpayments wheatnewacreLDP10 <- acreyear2010*0.7*wheatnewLDPactualpaid wheatnewarceMax10 <- acreyear2010*ifelse(wheatnewfarmprice<165, 47, 0) wheatnewarcetestupper10 <- acreyear2010*ifelse(wheatnewfarmprice<221, 1, 0) wheatnewarcetestlower10 <- acreyear2010*ifelse(wheatnewfarmprice>165, 1, 0) wheatnewarcepayment10 <- acreyear2010*wheatnewarcetestupper10*wheatnewarcetestlower10*(acre2010wheata-acre2010wheatb*wheatnewfarmprice) wheatnewarcepayment110 <- ifelse(wheatnewarcepayment10>0, 1, 0) wheatnewarcetotalacreprogram10 <- wheatnewacredirectpayments10 + wheatnewacreLDP10 + wheatnewarceMax10 + wheatnewarcepayment10 + wheatnewarcepayment110 wheatnewacredirectpayments11 <- acreyear2011*0.8*wheatnewdirectpayments wheatnewacreLDP11 <- acreyear2011*0.7*wheatnewLDPactualpaid wheatnewarceMax11 <- acreyear2011*ifelse(wheatnewfarmprice<146, 43, 0) wheatnewarcetestupper11 <- acreyear2011*ifelse(wheatnewfarmprice<197, 1, 0) wheatnewarcetestlower11 <- acreyear2011*ifelse(wheatnewfarmprice>146, 1, 0) wheatnewarcepayment11 <- acreyear2011*wheatnewarcetestupper11*wheatnewarcetestlower11*(acre2011wheata-acre2011wheatb*wheatnewfarmprice) wheatnewarcepayment111 <- ifelse(wheatnewarcepayment11>0, 1, 0) wheatnewarcetotalacreprogram11 <- wheatnewacredirectpayments11 + wheatnewacreLDP11 + wheatnewarceMax11 + wheatnewarcepayment11 + wheatnewarcepayment111 wheatnewacredirectpayments12 <- acreyear2012*0.8*wheatnewdirectpayments wheatnewacreLDP12 <- acreyear2012*0.7*wheatnewLDPactualpaid wheatnewarceMax12 <- acreyear2012*ifelse(wheatnewfarmprice<132, 38, 0) wheatnewarcetestupper12 <- acreyear2012*ifelse(wheatnewfarmprice<177, 1, 0) wheatnewarcetestlower12 <- acreyear2012*ifelse(wheatnewfarmprice>132, 1, 0) wheatnewarcepayment12 <- acreyear2012*wheatnewarcetestupper12*wheatnewarcetestlower12*(acre2012wheata-acre2012wheatb*wheatnewfarmprice) wheatnewarcepayment112 <- ifelse(wheatnewarcepayment12>0, 1, 0) wheatnewarcetotalacreprogram12 <- wheatnewacredirectpayments12 + wheatnewacreLDP12 + wheatnewarceMax12 + wheatnewarcepayment12 + wheatnewarcepayment112 wheatnewacredirectpayments13 <- acreyear2013*0.8*wheatnewdirectpayments wheatnewacreLDP13 <- acreyear2013*0.7*wheatnewLDPactualpaid wheatnewarceMax13 <- acreyear2013*ifelse(wheatnewfarmprice<128, 37, 0) wheatnewarcetestupper13 <- acreyear2013*ifelse(wheatnewfarmprice<172, 1, 0) wheatnewarcetestlower13 <- acreyear2013*ifelse(wheatnewfarmprice>128, 1, 0) wheatnewarcepayment13 <- acreyear2013*wheatnewarcetestupper13*wheatnewarcetestlower13*(acre2013wheata-acre2013wheatb*wheatnewfarmprice) wheatnewarcepayment113 <- ifelse(wheatnewarcepayment13>0, 1, 0) wheatnewarcetotalacreprogram13 <- wheatnewacredirectpayments13 + wheatnewacreLDP13 + wheatnewarceMax13 + wheatnewarcepayment13 + wheatnewarcepayment113 wheatnewacredirectpayments14 <- acreyear2014*0.8*wheatnewdirectpayments wheatnewacreLDP14 <- acreyear2014*0.7*wheatnewLDPactualpaid wheatnewarceMax14 <- acreyear2014*ifelse(wheatnewfarmprice<128, 37, 0) wheatnewarcetestupper14 <- acreyear2014*ifelse(wheatnewfarmprice<172, 1, 0) wheatnewarcetestlower14 <- acreyear2014*ifelse(wheatnewfarmprice>128, 1, 0) wheatnewarcepayment14 <- acreyear2014*wheatnewarcetestupper14*wheatnewarcetestlower14*(acre2014wheata-acre2014wheatb*wheatnewfarmprice) wheatnewarcepayment114 <- ifelse(wheatnewarcepayment14>0, 1, 0) wheatnewarcetotalacreprogram14 <- wheatnewacredirectpayments14 + wheatnewacreLDP14 + wheatnewarceMax14 + wheatnewarcepayment14 + wheatnewarcepayment114 wheatnewacredirectpayments15 <- acreyear2015*0.8*wheatnewdirectpayments wheatnewacreLDP15 <- acreyear2015*0.7*wheatnewLDPactualpaid wheatnewarceMax15 <- acreyear2015*ifelse(wheatnewfarmprice<128, 37, 0) wheatnewarcetestupper15 <- acreyear2015*ifelse(wheatnewfarmprice<172, 1, 0) wheatnewarcetestlower15 <- acreyear2015*ifelse(wheatnewfarmprice>128, 1, 0) wheatnewarcepayment15 <- acreyear2015*wheatnewarcetestupper15*wheatnewarcetestlower15*(acre2015wheata-acre2015wheatb*wheatnewfarmprice) wheatnewarcepayment115 <- ifelse(wheatnewarcepayment15>0, 1, 0) wheatnewarcetotalacreprogram15 <- wheatnewacredirectpayments15 + wheatnewacreLDP15 + wheatnewarceMax15 + wheatnewarcepayment15 + wheatnewarcepayment115 wheatnewacredirectpayments16 <- acreyear2016*0.8*wheatnewdirectpayments wheatnewacreLDP16 <- acreyear2016*0.7*wheatnewLDPactualpaid wheatnewarceMax16 <- acreyear2016*ifelse(wheatnewfarmprice<128, 37, 0) wheatnewarcetestupper16 <- acreyear2016*ifelse(wheatnewfarmprice<172, 1, 0) wheatnewarcetestlower16 <- acreyear2016*ifelse(wheatnewfarmprice>128, 1, 0) wheatnewarcepayment16 <- acreyear2016*wheatnewarcetestupper16*wheatnewarcetestlower16*(acre2016wheata-acre2016wheatb*wheatnewfarmprice) wheatnewarcepayment116 <- ifelse(wheatnewarcepayment16>0, 1, 0) wheatnewarcetotalacreprogram16 <- wheatnewacredirectpayments16 + wheatnewacreLDP16 + wheatnewarceMax16 + wheatnewarcepayment16 + wheatnewarcepayment116 wheatnewacredirectpayments17 <- acreyear2017*0.8*wheatnewdirectpayments wheatnewacreLDP17 <- acreyear2017*0.7*wheatnewLDPactualpaid wheatnewarceMax17 <- acreyear2017*ifelse(wheatnewfarmprice<128, 37, 0) wheatnewarcetestupper17 <- acreyear2017*ifelse(wheatnewfarmprice<172, 1, 0) wheatnewarcetestlower17 <- acreyear2017*ifelse(wheatnewfarmprice>128, 1, 0) wheatnewarcepayment17 <- acreyear2017*wheatnewarcetestupper17*wheatnewarcetestlower17*(acre2017wheata-acre2017wheatb*wheatnewfarmprice) wheatnewarcepayment117 <- ifelse(wheatnewarcepayment17>0, 1, 0) wheatnewarcetotalacreprogram17 <- wheatnewacredirectpayments17 + wheatnewacreLDP17 + wheatnewarceMax17 + wheatnewarcepayment17 + wheatnewarcepayment117 wheatnewacredirectpayments18 <- acreyear2018*0.8*wheatnewdirectpayments wheatnewacreLDP18 <- acreyear2018*0.7*wheatnewLDPactualpaid wheatnewarceMax18 <- acreyear2018*ifelse(wheatnewfarmprice<128, 37, 0) wheatnewarcetestupper18 <- acreyear2018*ifelse(wheatnewfarmprice<172, 1, 0) wheatnewarcetestlower18 <- acreyear2018*ifelse(wheatnewfarmprice>128, 1, 0) wheatnewarcepayment18 <- acreyear2018*wheatnewarcetestupper18*wheatnewarcetestlower18*(acre2018wheata-acre2018wheatb*wheatnewfarmprice) wheatnewarcepayment118 <- ifelse(wheatnewarcepayment18>0, 1, 0) wheatnewarcetotalacreprogram18 <- wheatnewacredirectpayments18 + wheatnewacreLDP18 + wheatnewarceMax18 + wheatnewarcepayment18 + wheatnewarcepayment118 ## Rice acre2009ricea <- 222.8176 acre2009riceb <- 0.83121 acre2010ricea <- 242.2501 acre2010riceb <- 0.84702 acre2011ricea <- 211.0596 acre2011riceb <- 0.82846 acre2012ricea <- 188.7081 acre2012riceb <- 0.83137 acre2013ricea <- 175.2403 acre2013riceb <- 0.845 acre2014ricea <- 175.2403 acre2014riceb <- 0.845 acre2015ricea <- 175.2403 acre2015riceb <- 0.845 acre2016ricea <- 175.2403 acre2016riceb <- 0.845 acre2017ricea <- 175.2403 acre2017riceb <- 0.845 acre2018ricea <- 175.2403 acre2018riceb <- 0.845 acre2019ricea <- 175.2403 acre2019riceb <- 0.845 ricebasedirectpayments <- farmpolicy[i,2]*2204.6/100 ricebaseacredirectpayments09 <- acreyear2009*0.8*ricebasedirectpayments ricebaseacreLDP09 <- acreyear2009*0.7*ricebaseLDPactualpaid ricebasearceMax09 <- acreyear2009*ifelse(ricebasefarmprice<200, 56, 0) ricebasearcetestupper09 <- acreyear2009*ifelse(ricebasefarmprice<267, 1, 0) ricebasearcetestlower09 <- acreyear2009*ifelse(ricebasefarmprice>200, 1, 0) ricebasearcepayment09 <- acreyear2009*ricebasearcetestupper09*ricebasearcetestlower09*(acre2009ricea-acre2009riceb*ricebasefarmprice) ricebasearcepayment109 <- ifelse(ricebasearcepayment09>0, 1, 0) ricebasearcetotalacreprogram09 <- ricebaseacredirectpayments09 + ricebaseacreLDP09 + ricebasearceMax09 + ricebasearcepayment09 + ricebasearcepayment109 ricebaseacredirectpayments10 <- acreyear2010*0.8*ricebasedirectpayments ricebaseacreLDP10 <- acreyear2010*0.7*ricebaseLDPactualpaid ricebasearceMax10 <- acreyear2010*ifelse(ricebasefarmprice<213, 61, 0) ricebasearcetestupper10 <- acreyear2010*ifelse(ricebasefarmprice<221, 1, 0) ricebasearcetestlower10 <- acreyear2010*ifelse(ricebasefarmprice>213, 1, 0) ricebasearcepayment10 <- acreyear2010*ricebasearcetestupper10*ricebasearcetestlower10*(acre2010ricea-acre2010riceb*ricebasefarmprice) ricebasearcepayment110 <- ifelse(ricebasearcepayment10>0, 1, 0) ricebasearcetotalacreprogram10 <- ricebaseacredirectpayments10 + ricebaseacreLDP10 + ricebasearceMax10 + ricebasearcepayment10 + ricebasearcepayment110 ricebaseacredirectpayments11 <- acreyear2011*0.8*ricebasedirectpayments ricebaseacreLDP11 <- acreyear2011*0.7*ricebaseLDPactualpaid ricebasearceMax11 <- acreyear2011*ifelse(ricebasefarmprice<190, 53, 0) ricebasearcetestupper11 <- acreyear2011*ifelse(ricebasefarmprice<254, 1, 0) ricebasearcetestlower11 <- acreyear2011*ifelse(ricebasefarmprice>190, 1, 0) ricebasearcepayment11 <- acreyear2011*ricebasearcetestupper11*ricebasearcetestlower11*(acre2011ricea-acre2011riceb*ricebasefarmprice) ricebasearcepayment111 <- ifelse(ricebasearcepayment11>0, 1, 0) ricebasearcetotalacreprogram11 <- ricebaseacredirectpayments11 + ricebaseacreLDP11 + ricebasearceMax11 + ricebasearcepayment11 + ricebasearcepayment111 ricebaseacredirectpayments12 <- acreyear2012*0.8*ricebasedirectpayments ricebaseacreLDP12 <- acreyear2012*0.7*ricebaseLDPactualpaid ricebasearceMax12 <- acreyear2012*ifelse(ricebasefarmprice<169, 48, 0) ricebasearcetestupper12 <- acreyear2012*ifelse(ricebasefarmprice<226, 1, 0) ricebasearcetestlower12 <- acreyear2012*ifelse(ricebasefarmprice>169, 1, 0) ricebasearcepayment12 <- acreyear2012*ricebasearcetestupper12*ricebasearcetestlower12*(acre2012ricea-acre2012riceb*ricebasefarmprice) ricebasearcepayment112 <- ifelse(ricebasearcepayment12>0, 1, 0) ricebasearcetotalacreprogram12 <- ricebaseacredirectpayments12 + ricebaseacreLDP12 + ricebasearceMax12 + ricebasearcepayment12 + ricebasearcepayment112 ricebaseacredirectpayments13 <- acreyear2013*0.8*ricebasedirectpayments ricebaseacreLDP13 <- acreyear2013*0.7*ricebaseLDPactualpaid ricebasearceMax13 <- acreyear2013*ifelse(ricebasefarmprice<155, 45, 0) ricebasearcetestupper13 <- acreyear2013*ifelse(ricebasefarmprice<208, 1, 0) ricebasearcetestlower13 <- acreyear2013*ifelse(ricebasefarmprice>155, 1, 0) ricebasearcepayment13 <- acreyear2013*ricebasearcetestupper13*ricebasearcetestlower13*(acre2013ricea-acre2013riceb*ricebasefarmprice) ricebasearcepayment113 <- ifelse(ricebasearcepayment13>0, 1, 0) ricebasearcetotalacreprogram13 <- ricebaseacredirectpayments13 + ricebaseacreLDP13 + ricebasearceMax13 + ricebasearcepayment13 + ricebasearcepayment113 ricebaseacredirectpayments14 <- acreyear2014*0.8*ricebasedirectpayments ricebaseacreLDP14 <- acreyear2014*0.7*ricebaseLDPactualpaid ricebasearceMax14 <- acreyear2014*ifelse(ricebasefarmprice<155, 45, 0) ricebasearcetestupper14 <- acreyear2014*ifelse(ricebasefarmprice<208, 1, 0) ricebasearcetestlower14 <- acreyear2014*ifelse(ricebasefarmprice>155, 1, 0) ricebasearcepayment14 <- acreyear2014*ricebasearcetestupper14*ricebasearcetestlower14*(acre2014ricea-acre2014riceb*ricebasefarmprice) ricebasearcepayment114 <- ifelse(ricebasearcepayment14>0, 1, 0) ricebasearcetotalacreprogram14 <- ricebaseacredirectpayments14 + ricebaseacreLDP14 + ricebasearceMax14 + ricebasearcepayment14 + ricebasearcepayment114 ricebaseacredirectpayments15 <- acreyear2015*0.8*ricebasedirectpayments ricebaseacreLDP15 <- acreyear2015*0.7*ricebaseLDPactualpaid ricebasearceMax15 <- acreyear2015*ifelse(ricebasefarmprice<155, 45, 0) ricebasearcetestupper15 <- acreyear2015*ifelse(ricebasefarmprice<208, 1, 0) ricebasearcetestlower15 <- acreyear2015*ifelse(ricebasefarmprice>155, 1, 0) ricebasearcepayment15 <- acreyear2015*ricebasearcetestupper15*ricebasearcetestlower15*(acre2015ricea-acre2015riceb*ricebasefarmprice) ricebasearcepayment115 <- ifelse(ricebasearcepayment15>0, 1, 0) ricebasearcetotalacreprogram15 <- ricebaseacredirectpayments15 + ricebaseacreLDP15 + ricebasearceMax15 + ricebasearcepayment15 + ricebasearcepayment115 ricebaseacredirectpayments16 <- acreyear2016*0.8*ricebasedirectpayments ricebaseacreLDP16 <- acreyear2016*0.7*ricebaseLDPactualpaid ricebasearceMax16 <- acreyear2016*ifelse(ricebasefarmprice<165, 45, 0) ricebasearcetestupper16 <- acreyear2016*ifelse(ricebasefarmprice<208, 1, 0) ricebasearcetestlower16 <- acreyear2016*ifelse(ricebasefarmprice>155, 1, 0) ricebasearcepayment16 <- acreyear2016*ricebasearcetestupper16*ricebasearcetestlower16*(acre2016ricea-acre2016riceb*ricebasefarmprice) ricebasearcepayment116 <- ifelse(ricebasearcepayment16>0, 1, 0) ricebasearcetotalacreprogram16 <- ricebaseacredirectpayments16 + ricebaseacreLDP16 + ricebasearceMax16 + ricebasearcepayment16 + ricebasearcepayment116 ricebaseacredirectpayments17 <- acreyear2017*0.8*ricebasedirectpayments ricebaseacreLDP17 <- acreyear2017*0.7*ricebaseLDPactualpaid ricebasearceMax17 <- acreyear2017*ifelse(ricebasefarmprice<165, 45, 0) ricebasearcetestupper17 <- acreyear2017*ifelse(ricebasefarmprice<208, 1, 0) ricebasearcetestlower17 <- acreyear2017*ifelse(ricebasefarmprice>175, 1, 0) ricebasearcepayment17 <- acreyear2017*ricebasearcetestupper17*ricebasearcetestlower17*(acre2017ricea-acre2017riceb*ricebasefarmprice) ricebasearcepayment117 <- ifelse(ricebasearcepayment17>0, 1, 0) ricebasearcetotalacreprogram17 <- ricebaseacredirectpayments17 + ricebaseacreLDP17 + ricebasearceMax17 + ricebasearcepayment17 + ricebasearcepayment117 ricebaseacredirectpayments18 <- acreyear2018*0.8*ricebasedirectpayments ricebaseacreLDP18 <- acreyear2018*0.7*ricebaseLDPactualpaid ricebasearceMax18 <- acreyear2018*ifelse(ricebasefarmprice<165, 45, 0) ricebasearcetestupper18 <- acreyear2018*ifelse(ricebasefarmprice<208, 1, 0) ricebasearcetestlower18 <- acreyear2018*ifelse(ricebasefarmprice>185, 1, 0) ricebasearcepayment18 <- acreyear2018*ricebasearcetestupper18*ricebasearcetestlower18*(acre2018ricea-acre2018riceb*ricebasefarmprice) ricebasearcepayment118 <- ifelse(ricebasearcepayment18>0, 1, 0) ricebasearcetotalacreprogram18 <- ricebaseacredirectpayments18 + ricebaseacreLDP18 + ricebasearceMax18 + ricebasearcepayment18 + ricebasearcepayment118 ricenewdirectpayments <- ricebasedirectpayments+commoditypolicy[i,2] ricenewacredirectpayments09 <- acreyear2009*0.8*ricenewdirectpayments ricenewacreLDP09 <- acreyear2009*0.7*ricenewLDPactualpaid ricenewarceMax09 <- acreyear2009*ifelse(ricenewfarmprice<200, 56, 0) ricenewarcetestupper09 <- acreyear2009*ifelse(ricenewfarmprice<267, 1, 0) ricenewarcetestlower09 <- acreyear2009*ifelse(ricenewfarmprice>200, 1, 0) ricenewarcepayment09 <- acreyear2009*ricenewarcetestupper09*ricenewarcetestlower09*(acre2009ricea-acre2009riceb*ricenewfarmprice) ricenewarcepayment109 <- ifelse(ricenewarcepayment09>0, 1, 0) ricenewarcetotalacreprogram09 <- ricenewacredirectpayments09 + ricenewacreLDP09 + ricenewarceMax09 + ricenewarcepayment09 + ricenewarcepayment109 ricenewacredirectpayments10 <- acreyear2010*0.8*ricenewdirectpayments ricenewacreLDP10 <- acreyear2010*0.7*ricenewLDPactualpaid ricenewarceMax10 <- acreyear2010*ifelse(ricenewfarmprice<213, 61, 0) ricenewarcetestupper10 <- acreyear2010*ifelse(ricenewfarmprice<286, 1, 0) ricenewarcetestlower10 <- acreyear2010*ifelse(ricenewfarmprice>213, 1, 0) ricenewarcepayment10 <- acreyear2010*ricenewarcetestupper10*ricenewarcetestlower10*(acre2010ricea-acre2010riceb*ricenewfarmprice) ricenewarcepayment110 <- ifelse(ricenewarcepayment10>0, 1, 0) ricenewarcetotalacreprogram10 <- ricenewacredirectpayments10 + ricenewacreLDP10 + ricenewarceMax10 + ricenewarcepayment10 + ricenewarcepayment110 ricenewacredirectpayments11 <- acreyear2011*0.8*ricenewdirectpayments ricenewacreLDP11 <- acreyear2011*0.7*ricenewLDPactualpaid ricenewarceMax11 <- acreyear2011*ifelse(ricenewfarmprice<190, 53, 0) ricenewarcetestupper11 <- acreyear2011*ifelse(ricenewfarmprice<254, 1, 0) ricenewarcetestlower11 <- acreyear2011*ifelse(ricenewfarmprice>190, 1, 0) ricenewarcepayment11 <- acreyear2011*ricenewarcetestupper11*ricenewarcetestlower11*(acre2011ricea-acre2011riceb*ricenewfarmprice) ricenewarcepayment111 <- ifelse(ricenewarcepayment11>0, 1, 0) ricenewarcetotalacreprogram11 <- ricenewacredirectpayments11 + ricenewacreLDP11 + ricenewarceMax11 + ricenewarcepayment11 + ricenewarcepayment111 ricenewacredirectpayments12 <- acreyear2012*0.8*ricenewdirectpayments ricenewacreLDP12 <- acreyear2012*0.7*ricenewLDPactualpaid ricenewarceMax12 <- acreyear2012*ifelse(ricenewfarmprice<169, 48, 0) ricenewarcetestupper12 <- acreyear2012*ifelse(ricenewfarmprice<226, 1, 0) ricenewarcetestlower12 <- acreyear2012*ifelse(ricenewfarmprice>169, 1, 0) ricenewarcepayment12 <- acreyear2012*ricenewarcetestupper12*ricenewarcetestlower12*(acre2012ricea-acre2012riceb*ricenewfarmprice) ricenewarcepayment112 <- ifelse(ricenewarcepayment12>0, 1, 0) ricenewarcetotalacreprogram12 <- ricenewacredirectpayments12 + ricenewacreLDP12 + ricenewarceMax12 + ricenewarcepayment12 + ricenewarcepayment112 ricenewacredirectpayments13 <- acreyear2013*0.8*ricenewdirectpayments ricenewacreLDP13 <- acreyear2013*0.7*ricenewLDPactualpaid ricenewarceMax13 <- acreyear2013*ifelse(ricenewfarmprice<155, 45, 0) ricenewarcetestupper13 <- acreyear2013*ifelse(ricenewfarmprice<208, 1, 0) ricenewarcetestlower13 <- acreyear2013*ifelse(ricenewfarmprice>155, 1, 0) ricenewarcepayment13 <- acreyear2013*ricenewarcetestupper13*ricenewarcetestlower13*(acre2013ricea-acre2013riceb*ricenewfarmprice) ricenewarcepayment113 <- ifelse(ricenewarcepayment13>0, 1, 0) ricenewarcetotalacreprogram13 <- ricenewacredirectpayments13 + ricenewacreLDP13 + ricenewarceMax13 + ricenewarcepayment13 + ricenewarcepayment113 ricenewacredirectpayments14 <- acreyear2014*0.8*ricenewdirectpayments ricenewacreLDP14 <- acreyear2014*0.7*ricenewLDPactualpaid ricenewarceMax14 <- acreyear2014*ifelse(ricenewfarmprice<155, 45, 0) ricenewarcetestupper14 <- acreyear2014*ifelse(ricenewfarmprice<208, 1, 0) ricenewarcetestlower14 <- acreyear2014*ifelse(ricenewfarmprice>155, 1, 0) ricenewarcepayment14 <- acreyear2014*ricenewarcetestupper14*ricenewarcetestlower14*(acre2014ricea-acre2014riceb*ricenewfarmprice) ricenewarcepayment114 <- ifelse(ricenewarcepayment14>0, 1, 0) ricenewarcetotalacreprogram14 <- ricenewacredirectpayments14 + ricenewacreLDP14 + ricenewarceMax14 + ricenewarcepayment14 + ricenewarcepayment114 ricenewacredirectpayments15 <- acreyear2015*0.8*ricenewdirectpayments ricenewacreLDP15 <- acreyear2015*0.7*ricenewLDPactualpaid ricenewarceMax15 <- acreyear2015*ifelse(ricenewfarmprice<155, 45, 0) ricenewarcetestupper15 <- acreyear2015*ifelse(ricenewfarmprice<208, 1, 0) ricenewarcetestlower15 <- acreyear2015*ifelse(ricenewfarmprice>155, 1, 0) ricenewarcepayment15 <- acreyear2015*ricenewarcetestupper15*ricenewarcetestlower15*(acre2015ricea-acre2015riceb*ricenewfarmprice) ricenewarcepayment115 <- ifelse(ricenewarcepayment15>0, 1, 0) ricenewarcetotalacreprogram15 <- ricenewacredirectpayments15 + ricenewacreLDP15 + ricenewarceMax15 + ricenewarcepayment15 + ricenewarcepayment115 ricenewacredirectpayments16 <- acreyear2016*0.8*ricenewdirectpayments ricenewacreLDP16 <- acreyear2016*0.7*ricenewLDPactualpaid ricenewarceMax16 <- acreyear2016*ifelse(ricenewfarmprice<155, 45, 0) ricenewarcetestupper16 <- acreyear2016*ifelse(ricenewfarmprice<208, 1, 0) ricenewarcetestlower16 <- acreyear2016*ifelse(ricenewfarmprice>155, 1, 0) ricenewarcepayment16 <- acreyear2016*ricenewarcetestupper16*ricenewarcetestlower16*(acre2016ricea-acre2016riceb*ricenewfarmprice) ricenewarcepayment116 <- ifelse(ricenewarcepayment16>0, 1, 0) ricenewarcetotalacreprogram16 <- ricenewacredirectpayments16 + ricenewacreLDP16 + ricenewarceMax16 + ricenewarcepayment16 + ricenewarcepayment116 ricenewacredirectpayments17 <- acreyear2017*0.8*ricenewdirectpayments ricenewacreLDP17 <- acreyear2017*0.7*ricenewLDPactualpaid ricenewarceMax17 <- acreyear2017*ifelse(ricenewfarmprice<155, 45, 0) ricenewarcetestupper17 <- acreyear2017*ifelse(ricenewfarmprice<208, 1, 0) ricenewarcetestlower17 <- acreyear2017*ifelse(ricenewfarmprice>155, 1, 0) ricenewarcepayment17 <- acreyear2017*ricenewarcetestupper17*ricenewarcetestlower17*(acre2017ricea-acre2017riceb*ricenewfarmprice) ricenewarcepayment117 <- ifelse(ricenewarcepayment17>0, 1, 0) ricenewarcetotalacreprogram17 <- ricenewacredirectpayments17 + ricenewacreLDP17 + ricenewarceMax17 + ricenewarcepayment17 + ricenewarcepayment117 ricenewacredirectpayments18 <- acreyear2018*0.8*ricenewdirectpayments ricenewacreLDP18 <- acreyear2018*0.7*ricenewLDPactualpaid ricenewarceMax18 <- acreyear2018*ifelse(ricenewfarmprice<155, 45, 0) ricenewarcetestupper18 <- acreyear2018*ifelse(ricenewfarmprice<208, 1, 0) ricenewarcetestlower18 <- acreyear2018*ifelse(ricenewfarmprice>155, 1, 0) ricenewarcepayment18 <- acreyear2018*ricenewarcetestupper18*ricenewarcetestlower18*(acre2018ricea-acre2018riceb*ricenewfarmprice) ricenewarcepayment118 <- ifelse(ricenewarcepayment18>0, 1, 0) ricenewarcetotalacreprogram18 <- ricenewacredirectpayments18 + ricenewacreLDP18 + ricenewarceMax18 + ricenewarcepayment18 + ricenewarcepayment118 #Farm Policy2 - Traditional (Crop return) coarsebasecropreturn <- coarsebasefarmprice + coarsebasegovernmentpayments*(acreyear2009*(1-0.1429)+acreyear2010*(1-0.1429)+acreyear2011*(1-0.1429)+acreyear2012*(1-0.1429)+acreyear2013*(1-0.1429))+acreyear2009*0.1429*coarsebasearcetotalacreprogram09+acreyear2010*0.1429*coarsebasearcetotalacreprogram10+acreyear2011*0.1429*coarsebasearcetotalacreprogram11+acreyear2012*0.1429*coarsebasearcetotalacreprogram12+acreyear2013*0.1429*coarsebasearcetotalacreprogram13 coarsenewcropreturn <- coarsenewfarmprice + coarsenewgovernmentpayments*(acreyear2009*(1-0.1429)+acreyear2010*(1-0.1429)+acreyear2011*(1-0.1429)+acreyear2012*(1-0.1429)+acreyear2013*(1-0.1429))+acreyear2009*0.1429*coarsenewarcetotalacreprogram09+acreyear2010*0.1429*coarsenewarcetotalacreprogram10+acreyear2011*0.1429*coarsenewarcetotalacreprogram11+acreyear2012*0.1429*coarsenewarcetotalacreprogram12+acreyear2013*0.1429*coarsenewarcetotalacreprogram13 coarsenewpercentchangecropreturn <- (coarsenewcropreturn-coarsebasecropreturn)/coarsebasecropreturn soybeansbasecropreturn <- soybeansbasefarmprice + soybeansbasegovernmentpayments*(acreyear2009*(1-0.1531)+acreyear2010*(1-0.1531)+acreyear2011*(1-0.1531)+acreyear2012*(1-0.1531)+acreyear2013*(1-0.1531))+acreyear2009*0.1531*soybeansbasearcetotalacreprogram09+acreyear2010*0.1531*soybeansbasearcetotalacreprogram10+acreyear2011*0.1531*soybeansbasearcetotalacreprogram11+acreyear2012*0.1531*soybeansbasearcetotalacreprogram12+acreyear2013*0.1531*soybeansbasearcetotalacreprogram13 soybeansnewcropreturn <- soybeansnewfarmprice + soybeansnewgovernmentpayments*(acreyear2009*(1-0.1531)+acreyear2010*(1-0.1531)+acreyear2011*(1-0.1531)+acreyear2012*(1-0.1531)+acreyear2013*(1-0.1531))+acreyear2009*0.1531*soybeansnewarcetotalacreprogram09+acreyear2010*0.1531*soybeansnewarcetotalacreprogram10+acreyear2011*0.1531*soybeansnewarcetotalacreprogram11+acreyear2012*0.1531*soybeansnewarcetotalacreprogram12+acreyear2013*0.1531*soybeansnewarcetotalacreprogram13 soybeansnewpercentchangecropreturn <- (soybeansnewcropreturn-soybeansbasecropreturn)/soybeansbasecropreturn wheatbasecropreturn <- wheatbasefarmprice + wheatbasegovernmentpayments*(acreyear2009*(1-0.1268)+acreyear2010*(1-0.1268)+acreyear2011*(1-0.1268)+acreyear2012*(1-0.1268)+acreyear2013*(1-0.1268))+acreyear2009*0.1268*wheatbasearcetotalacreprogram09+acreyear2010*0.1268*wheatbasearcetotalacreprogram10+acreyear2011*0.1268*wheatbasearcetotalacreprogram11+acreyear2012*0.1268*wheatbasearcetotalacreprogram12+acreyear2013*0.1268*wheatbasearcetotalacreprogram13 wheatnewcropreturn <- wheatnewfarmprice + wheatnewgovernmentpayments*(acreyear2009*(1-0.1268)+acreyear2010*(1-0.1268)+acreyear2011*(1-0.1268)+acreyear2012*(1-0.1268)+acreyear2013*(1-0.1268))+acreyear2009*0.1268*wheatnewarcetotalacreprogram09+acreyear2010*0.1268*wheatnewarcetotalacreprogram10+acreyear2011*0.1268*wheatnewarcetotalacreprogram11+acreyear2012*0.1268*wheatnewarcetotalacreprogram12+acreyear2013*0.1268*wheatnewarcetotalacreprogram13 wheatnewpercentchangecropreturn <- (wheatnewcropreturn-wheatbasecropreturn)/wheatbasecropreturn ricebasecropreturn <- ricebasefarmprice + ricebasegovernmentpayments*(acreyear2009*(1-0.1)+acreyear2010*(1-0.1)+acreyear2011*(1-0.1)+acreyear2012*(1-0.1)+acreyear2013*(1-0.1))+acreyear2009*0.1*ricebasearcetotalacreprogram09+acreyear2010*0.1*ricebasearcetotalacreprogram10+acreyear2011*0.1*ricebasearcetotalacreprogram11+acreyear2012*0.1*ricebasearcetotalacreprogram12+acreyear2013*0.1*ricebasearcetotalacreprogram13 ricenewcropreturn <- ricenewfarmprice + ricenewgovernmentpayments*(acreyear2009*(1-0.1)+acreyear2010*(1-0.1)+acreyear2011*(1-0.1)+acreyear2012*(1-0.1)+acreyear2013*(1-0.1))+acreyear2009*0.1*ricenewarcetotalacreprogram09+acreyear2010*0.1*ricenewarcetotalacreprogram10+acreyear2011*0.1*ricenewarcetotalacreprogram11+acreyear2012*0.1*ricenewarcetotalacreprogram12+acreyear2013*0.1*ricenewarcetotalacreprogram13 ricenewpercentchangecropreturn <- (ricenewcropreturn-ricebasecropreturn)/ricebasecropreturn #Commodity #CoarseGrains baseCGproduction <- coarsegrainsgen[i,2] calCGproduction <- baseCGproduction*(1+feedgrainsproduction) baseCGimports <- coarsegrainsgen[i,3] calCGimports <- coarsegrainsgen[i,3]*(1+feedgrainsimports) baseCGexports <- coarsegrainsgen[i,4] calCGexports <- coarsegrainsgen[i,4]*(1+feedgrainsexports) baseCGBstock <- coarsegrainsgen[i,5] calCGBstock <- coarsegrainsgen[i,5]*(1+lagged[23,1]) baseCGFSI <- coarsegrainsgen[i,7] calCGFSI <- coarsegrainsgen[i,7]*(1+feedgrainsnonfeeduse) baseCGfeeduse <- coarsegrainsgen[i,8] calCGfeeduse <- coarsegrainsgen[i,8]*(1+coarsegrainstotal) baseCGyellowprice <- coarsegrainsgen[i,9] calCGyellowprice <- coarsegrainsgen[i,9]*(1+valuesmat[49,i]) baseCGfarmprice <- coarsegrainsgen[i,10] calCGfarmprice <- coarsegrainsgen[i,10]*(1+valuesmat[49,i]) baseCGEstock <- coarsegrainsgen[i,6] calCGEstock <- calCGproduction + calCGimports + calCGBstock - calCGexports - calCGFSI - calCGfeeduse baseCGfeedusebeefcattle <- Feedbalance[2,1] calCGfeedusebeefcattle <- Feedbalance[2,1]*(1+valuesmat[43,i]) baseCGfeedusedairycattle <- Feedbalance[3,1] calCGfeedusedairycattle <- Feedbalance[3,1]*(1+valuesmat[44,i]) baseCGfeeduseswine <- Feedbalance[1,1] calCGfeeduseswine <- Feedbalance[1,1]*(1+valuesmat[45,i]) baseCGfeedusebirds <- Feedbalance[5,1] calCGfeedusebirds <- Feedbalance[5,1]*(1+valuesmat[46,i]) baseCGfeeduselayers <- Feedbalance[6,1] calCGfeeduselayers <- Feedbalance[6,1]*(1+valuesmat[47,i]) baseCGfeeduselambs <- Feedbalance[4,1] calCGfeeduselambs <- Feedbalance[4,1]*(1+valuesmat[48,i]) baseCGchokepricecalculated <- (baseCGfarmprice/1000)+((0-(baseCGFSI*1000/beefgen[1,2]))/(retailelasticity[5,5]*((baseCGFSI*1000)/(baseCGfarmprice/1000)))) calCGchokepricecalculated <- (baseCGfarmprice/1000)+((0-(baseCGFSI*1000/beefgen[1,2]))/(retailelasticity[5,5]*((baseCGFSI*1000)/(baseCGfarmprice/1000)))) baseCGconstant <- (baseCGfarmprice/1000/beefgen[i,2])/((baseCGfarmprice/1000)^retailelasticity[5,5]) calCGconstant <- (baseCGfarmprice/1000/beefgen[i,2])/((baseCGfarmprice/1000)^retailelasticity[5,5]) baseCGconsurpluspercapita <- baseCGconstant*(((baseCGchokepricecalculated^(retailelasticity[8,8]+1))/(retailelasticity[8,8]+1))-(((baseCGfarmprice/1000)^(retailelasticity[8,8]+1))/(retailelasticity[8,8]+1))) calCGconsurpluspercapita <- baseCGconstant*(((baseCGchokepricecalculated^(retailelasticity[8,8]+1))/(retailelasticity[8,8]+1))-(((calCGfarmprice/1000)^(retailelasticity[8,8]+1))/(retailelasticity[8,8]+1))) baseCGpopnotconsuming <- c(0) calCGpopnotconsuming <- beefgen[i,2]-beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,8]) baseCGconsurplusconsumingpop <- baseCGconsurpluspercapita*beefgen[i,2] calCGconsurplusconsumingpop <- calCGconsurpluspercapita*beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,8]) baseCGconsurplusforegone <- baseCGconsurpluspercapita*baseCGpopnotconsuming calCGconsurplusforegone <- calCGconsurpluspercapita*baseCGpopnotconsuming baseCGconexpenditurepercapita <- (baseCGfarmprice/1000)*(baseCGFSI*1000/beefgen[i,2]) calCGconexpenditurepercapita <- (calCGfarmprice/1000)*(calCGFSI*1000/beefgen[i,2]) baseCGconexpendituretotal <- baseCGconexpenditurepercapita*beefgen[i,2] calCGconexpendituretotal <- calCGconexpenditurepercapita*beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,8]) baseCGtotalreturns <- coarsebasecropreturn calCGtotalreturns <- coarsenewcropreturn baseCGquasirentcapitalandmanagement <- baseCGtotalreturns*coarsegrainsshare[i,9] calCGquasirentcapitalandmanagement <- baseCGquasirentcapitalandmanagement*(1+((calCGtotalreturns-baseCGtotalreturns)/baseCGtotalreturns)/coarsegrainsshare[i,9]) baseCGcashsalesvalue <- baseCGfarmprice*(baseCGfeeduse+baseCGFSI+baseCGexports) calCGcashsalesvalue <- calCGfarmprice*(calCGfeeduse+calCGFSI+calCGexports) baseCGvalueofendinginventory <- baseCGfarmprice*baseCGEstock calCGvalueofendinginventory <- calCGfarmprice*calCGEstock baseCGquasirentcapitalandmanagement1 <- baseCGquasirentcapitalandmanagement*(baseCGfeeduse+baseCGFSI+baseCGexports) calCGquasirentcapitalandmanagement1 <- calCGquasirentcapitalandmanagement*(calCGfeeduse+calCGFSI+calCGexports) baseCGdirectpayment <- coarsebaseacredirectpayments09+coarsebaseacredirectpayments10+coarsebaseacredirectpayments11+coarsebaseacredirectpayments12+coarsebaseacredirectpayments13+coarsebaseacredirectpayments14+coarsebaseacredirectpayments15+coarsebaseacredirectpayments16+coarsebaseacredirectpayments17+coarsebaseacredirectpayments18 calCGdirectpayment <- coarsenewacredirectpayments09+coarsenewacredirectpayments10+coarsenewacredirectpayments11+coarsenewacredirectpayments12+coarsenewacredirectpayments13+coarsenewacredirectpayments14+coarsenewacredirectpayments15+coarsenewacredirectpayments16+coarsenewacredirectpayments17+coarsenewacredirectpayments18 baseCGMktloan <- coarsebaseacreLDP09+coarsebaseacreLDP10+coarsebaseacreLDP11+coarsebaseacreLDP12+coarsebaseacreLDP13+coarsebaseacreLDP14+coarsebaseacreLDP15+coarsebaseacreLDP16+coarsebaseacreLDP17+coarsebaseacreLDP18 calCGMktloan <- coarsenewacreLDP09+coarsenewacreLDP10+coarsenewacreLDP11+coarsenewacreLDP12+coarsenewacreLDP13+coarsenewacreLDP14+coarsenewacreLDP15+coarsenewacreLDP16+coarsenewacreLDP17+coarsenewacreLDP18 baseCGACRE <- coarsebasearcepayment09*coarsebasearcepayment109+coarsebasearcepayment10*coarsebasearcepayment110+coarsebasearcepayment11*coarsebasearcepayment111+coarsebasearcepayment12*coarsebasearcepayment112+coarsebasearcepayment13*coarsebasearcepayment113+coarsebasearcepayment14*coarsebasearcepayment114+coarsebasearcepayment15*coarsebasearcepayment115+coarsebasearcepayment16*coarsebasearcepayment116+coarsebasearcepayment17*coarsebasearcepayment117+coarsebasearcepayment18*coarsebasearcepayment118 calCGACRE <- coarsenewarcepayment09*coarsenewarcepayment109+coarsenewarcepayment10*coarsenewarcepayment110+coarsenewarcepayment11*coarsenewarcepayment111+coarsenewarcepayment12*coarsenewarcepayment112+coarsenewarcepayment13*coarsenewarcepayment113+coarsenewarcepayment14*coarsenewarcepayment114+coarsenewarcepayment15*coarsenewarcepayment115+coarsenewarcepayment16*coarsenewarcepayment116+coarsenewarcepayment17*coarsenewarcepayment117+coarsenewarcepayment18*coarsenewarcepayment118 baseCGparticipation <- acreyear2009*0.1429+acreyear2010*0.1429+acreyear2011*0.1429+acreyear2012*0.1429+acreyear2013*0.1429+acreyear2014*0.1429+acreyear2015*0.1429+acreyear2016*0.1429+acreyear2017*0.1429+acreyear2018*0.1429 calCGparticipation <- acreyear2009*0.1429+acreyear2010*0.1429+acreyear2011*0.1429+acreyear2012*0.1429+acreyear2013*0.1429+acreyear2014*0.1429+acreyear2015*0.1429+acreyear2016*0.1429+acreyear2017*0.1429+acreyear2018*0.1429 baseCGdirect <- coarsebasedirectpayments*(1-baseCGparticipation)+baseCGparticipation*baseCGdirectpayment calCGdirect <- coarsenewdirectpayments*(1-calCGparticipation)+calCGparticipation*calCGdirectpayment baseCGMLS <- baseCGACRE*baseCGparticipation calCGMLS <- calCGACRE*calCGparticipation baseCGLDP <- coarsebaseLDPactualpaid*(1-baseCGparticipation)+baseCGparticipation*baseCGMktloan calCGLDP <- coarsenewLDPactualpaid*(1-calCGparticipation)+calCGparticipation*calCGMktloan baseCGCCP <- coarsebaseCCPactualpaid calCGCCP <- coarsenewCCPactualpaid baseCGgovernmentpayments <- (1-baseCGparticipation)*(baseCGdirect*baseCGproduction+baseCGLDP*baseCGproduction)+baseCGparticipation*(baseCGdirect*baseCGproduction+baseCGMktloan*calCGproduction+baseCGACRE*calCGproduction) calCGgovernmentpayments <- (1-calCGparticipation)*(calCGdirect*baseCGproduction+calCGLDP*baseCGproduction)+calCGparticipation*(calCGdirect*baseCGproduction+calCGMktloan*calCGproduction+calCGACRE*calCGproduction) #Forage baseForageBstocks <- Foragedata[1] calForageBstocks <- baseForageBstocks*(1+lagged[26,1]) baseForageoutput <- Foragedata[2] calForageoutput <- baseForageoutput*(1+lagged[42,1]+cropdisease[i,7]+cropdisease[i,8]) baseForageuse <- Foragedata[3] calForageuse <- baseForageuse*(1+foragetotal) baseForageEstocks <- Foragedata[4] calForageEstocks <- baseForageEstocks*(1+forageendingstocks) baseForageprice <- Foragedata[5] calForageprice <- baseForageprice*(1+valuesmat[29,i]) baseForagetotalreturns <- baseForageprice calForagetotalreturns <- calForageprice baseForagequasirentcapitalandmanagement <- baseForagetotalreturns*Forageshare[i,8] calForagequasirentcapitalandmanagement <- baseForagequasirentcapitalandmanagement*(1+(((calForagetotalreturns-baseForagetotalreturns)/baseForagetotalreturns))/Forageshare[i,8]) baseForagecashsalesvalue <- baseForageprice * baseForageuse calForagecashsalesvalue <- calForageprice * calForageuse baseForagevalueofendinginventory <- baseForageprice * baseForageEstocks calForagevalueofendinginventory <- calForageprice * calForageEstocks baseForagequasirentcapitalandmanagement1 <- baseForagequasirentcapitalandmanagement * baseForageuse calForagequasirentcapitalandmanagement1 <- calForagequasirentcapitalandmanagement * calForageuse #Rice basericeproduction <- ricegen[i,2] calriceproduction <- basericeproduction*(1+riceproduction) basericeexports <- ricegen[i,4] calriceexports <- ricegen[i,4]*(1+riceexports) basericeBstock <- ricegen[i,5] calriceBstock <- ricegen[i,5]*(1+lagged[27,1]) basericeEstock <- ricegen[i,6] calriceEstock <- ricegen[i,6]*(1+riceendingstocks) basericefood <- ricegen[i,7] calricefood <- ricegen[i,7]*(1+ricenonfeeduse) basericelongrough <- ricegen[i,9] calricelongrough <- ricegen[i,9]*(1+valuesmat[17,i]) basericefarmprice <- ricegen[i,10] calricefarmprice <- ricegen[i,10]*(1+valuesmat[17,i]) basericeimports <- ricegen[i,3] calriceimports <- calriceexports+calriceEstock+calricefood-calriceBstock-calriceproduction basericechokepricecalculated <- (ricegen[i,3]/1000)+((0-(basericefood*1000/beefgen[i,2])/(retailelasticity[7,7]*((ricegen[i,7]*1000/beefgen[i,2])/(ricegen[i,10]/1000))))) basericeconstant <- (ricegen[i,7]*1000/beefgen[i,2])/((ricegen[i,10]/1000)^retailelasticity[7,7]) basericeconsurpluspercapita <- basericeconstant*(((basericechokepricecalculated^(retailelasticity[7,7]+1))/(retailelasticity[7,7]+1))-(((ricegen[i,3]/1000)^(retailelasticity[7,7]+1))/retailelasticity[7,7]+1)) calriceconsurpluspercapita <- basericeconstant*(((basericechokepricecalculated^(retailelasticity[7,7]+1))/(retailelasticity[7,7]+1))-(((calricefarmprice/1000)^(retailelasticity[7,7]+1))/retailelasticity[7,7]+1)) basericepopnotconsuming <- c(0) calricepopnotconsuming <- beefgen[i,2]-beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,10]) basericeconsurplusconsumingpop <- basericeconsurpluspercapita*beefgen[i,2] calriceconsurplusconsumingpop <- calriceconsurpluspercapita*beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,10]) basericeconsurplusforgone <- basericeconsurpluspercapita*basericepopnotconsuming calriceconsurplusforgone <- calriceconsurpluspercapita*calricepopnotconsuming basericeconexpendiurepercapita <- (ricegen[i,10]/1000)*(ricegen[i,7]*1000/beefgen[i,2]) calriceconexpendiurepercapita <- (calricefarmprice/1000)*(calricefood*1000/beefgen[i,2]) basericeconexpendiuretotal <- basericeconexpendiurepercapita*beefgen[i,2] calriceconexpendiuretotal <- basericeconexpendiurepercapita*beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,10]) basericetotalreturns <- ricebasecropreturn calricetotalreturns <- ricenewcropreturn basericequasirentcapitalandmanagement <- basericetotalreturns*riceshare[i,9] calricequasirentcapitalandmanagement <- basericequasirentcapitalandmanagement*(1+((calricetotalreturns-basericetotalreturns)/basericetotalreturns)/riceshare[i,9]) basericecashsalesvalue <- basericefarmprice*(basericefood+basericeexports) calricecashsalesvalue <- calricefarmprice*(calricefood+calriceexports) basericevalueofendinginventory <- basericefarmprice*basericeEstock calricevalueofendinginventory <- calricefarmprice*calriceEstock basericequasirentcapitalandmanagement1 <- basericequasirentcapitalandmanagement*(basericefood+basericeexports) calricequasirentcapitalandmanagement1 <- calricequasirentcapitalandmanagement*(calricefood+calriceexports) basericedirectpayment <- ricebaseacredirectpayments09+ricebaseacredirectpayments10+ricebaseacredirectpayments11+ricebaseacredirectpayments12+ricebaseacredirectpayments13+ricebaseacredirectpayments14+ricebaseacredirectpayments15+ricebaseacredirectpayments16+ricebaseacredirectpayments17+ricebaseacredirectpayments18 calricedirectpayment <- ricenewacredirectpayments09+ricenewacredirectpayments10+ricenewacredirectpayments11+ricenewacredirectpayments12+ricenewacredirectpayments13+ricenewacredirectpayments14+ricenewacredirectpayments15+ricenewacredirectpayments16+ricenewacredirectpayments17+ricenewacredirectpayments18 basericeMktloan <- ricebaseacreLDP09+ricebaseacreLDP10+ricebaseacreLDP11+ricebaseacreLDP12+ricebaseacreLDP13+ricebaseacreLDP14+ricebaseacreLDP15+ricebaseacreLDP16+ricebaseacreLDP17+ricebaseacreLDP18 calriceMktloan <- ricenewacreLDP09+ricenewacreLDP10+ricenewacreLDP11+ricenewacreLDP12+ricenewacreLDP13+ricenewacreLDP14+ricenewacreLDP15+ricenewacreLDP16+ricenewacreLDP17+ricenewacreLDP18 basericeACRE <- ricebasearcepayment09*ricebasearcepayment109+ricebasearcepayment10*ricebasearcepayment110+ricebasearcepayment11*ricebasearcepayment111+ricebasearcepayment12*ricebasearcepayment112+ricebasearcepayment13*ricebasearcepayment113+ricebasearcepayment14*ricebasearcepayment114+ricebasearcepayment15*ricebasearcepayment115+ricebasearcepayment16*ricebasearcepayment116+ricebasearcepayment17*ricebasearcepayment117+ricebasearcepayment18*ricebasearcepayment118 calriceACRE <- ricenewarcepayment09*ricenewarcepayment109+ricenewarcepayment10*ricenewarcepayment110+ricenewarcepayment11*ricenewarcepayment111+ricenewarcepayment12*ricenewarcepayment112+ricenewarcepayment13*ricenewarcepayment113+ricenewarcepayment14*ricenewarcepayment114+ricenewarcepayment15*ricenewarcepayment115+ricenewarcepayment16*ricenewarcepayment116+ricenewarcepayment17*ricenewarcepayment117+ricenewarcepayment18*ricenewarcepayment118 basericeparticipation <- acreyear2009*0.00009+acreyear2010*0.00009+acreyear2011*0.00009+acreyear2012*0.00009+acreyear2013*0.00009+acreyear2014*0.00009+acreyear2015*0.00009+acreyear2016*0.00009+acreyear2017*0.00009+acreyear2018*0.00009 calriceparticipation <- acreyear2009*0.00009+acreyear2010*0.00009+acreyear2011*0.00009+acreyear2012*0.00009+acreyear2013*0.00009+acreyear2014*0.00009+acreyear2015*0.00009+acreyear2016*0.00009+acreyear2017*0.00009+acreyear2018*0.00009 basericedirect <- ricebasedirectpayments*(1-basericeparticipation)+basericeparticipation*basericedirectpayment calricedirect <- ricenewdirectpayments*(1-calriceparticipation)+calriceparticipation*calricedirectpayment basericeMLS <- basericeACRE*basericeparticipation calriceMLS <- calriceACRE*calriceparticipation basericeLDP <- ricebaseLDPactualpaid*(1-basericeparticipation)+basericeparticipation*basericeMktloan calriceLDP <- ricenewLDPactualpaid*(1-calriceparticipation)+calriceparticipation*calriceMktloan basericeCCP <- ricebaseCCPactualpaid calriceCCP <- ricenewCCPactualpaid basericegovernmentpayments <- (1-basericeparticipation)*(basericedirect*basericeproduction+basericeLDP*basericeproduction)+basericeparticipation*(basericedirect*basericeproduction+basericeMktloan*calriceproduction+basericeACRE*calriceproduction) calricegovernmentpayments <- (1-calriceparticipation)*(calricedirect*basericeproduction+calriceLDP*basericeproduction)+calriceparticipation*(calricedirect*basericeproduction+calriceMktloan*calriceproduction+calriceACRE*calriceproduction) #Soymeal basesoymealproduction <- soymealgen[i,1] calsoymealproduction <- soymealgen[i,1]*(1+soybeansnonfeeduse) basesoymealexports <- soymealgen[i,3] calsoymealexports <- soymealgen[i,3]*(1+soymealexports) basesoymealBstocks <- soymealgen[i,4] calsoymealBstocks <- soymealgen[i,4]*(1+valuesmat[36,i]) basesoymealEstocks <- soymealgen[i,5] calsoymealEstocks <- soymealgen[i,5]*(1-stockelasiticity[1,6]*valuesmat[36,i]) basesoymealfeeduse <- soymealgen[i,7] calsoymealfeeduse <- soymealgen[i,7]*(1+soybeanmealtotal) basesoymealdecatur <- soymealgen[i,8] calsoymealdecatur <- soymealgen[i,8]*(1+valuesmat[36,i]) basesoymealimports <- soymealgen[i,2] calsoymealimports <- calsoymealexports + calsoymealEstocks + calsoymealfeeduse - calsoymealBstocks - calsoymealproduction basesoymealfeedusebeefcattle <- Feedbalance[2,4] calsoymealfeedusebeefcattle <- Feedbalance[2,4]*(1+valuesmat[30,i]) basesoymealfeedusedairycattle <- Feedbalance[3,4] calsoymealfeedusedairycattle <- Feedbalance[3,4]*(1+valuesmat[31,i]) basesoymealfeeduseswine <- Feedbalance[1,4] calsoymealfeeduseswine <- Feedbalance[1,4]*(1+valuesmat[32,i]) basesoymealfeedusebirds <- Feedbalance[5,4] calsoymealfeedusebirds <- Feedbalance[5,4]*(1+valuesmat[33,i]) basesoymealfeeduselayers <- Feedbalance[6,4] calsoymealfeeduselayers <- Feedbalance[6,4]*(1+valuesmat[34,i]) basesoymealfeeduselambs <- Feedbalance[4,4] calsoymealfeeduselambs <- Feedbalance[4,4]*(1+valuesmat[35,i]) #Soyoil basesoyoilproduction <- soyoilgen[i,1] calsoyoilproduction <- soyoilgen[i,1]*(1+soybeansnonfeeduse) basesoyoilexports <- soyoilgen[i,3] calsoyoilexports <- soyoilgen[i,3]*(1+soyoilexports) basesoyoilBstocks <- soyoilgen[i,4] calsoyoilBstocks <- soyoilgen[i,4]*(1+lagged[34,1]) basesoyoilEstocks <- soyoilgen[i,5] calsoyoilEstocks <- soyoilgen[i,5]*(1-stockelasiticity[1,7]*valuesmat[18,i]) basesoyoilfooduse <- soyoilgen[i,6] calsoyoilfooduse <- soyoilgen[i,6]*(1+soyoilotheruse) basesoyoilcrude <- soyoilgen[i,8] calsoyoilcrude <- soyoilgen[i,8]*(1+valuesmat[18,i]) basesoyoilimports <- soyoilgen[i,2] calsoyoilimports <- calsoyoilexports + calsoyoilEstocks + calsoyoilfooduse - calsoyoilBstocks - calsoyoilproduction basesoyoilchokepricecalculated <- (soyoilgen[i,8]/1000)+((0-(soyoilgen[i,5]*1000/beefgen[i,2])/(retailelasticity[9,9]*((soyoilgen[i,5]*1000/beefgen[i,2])/(soyoilgen[i,8]/1000))))) calsoyoilchokepricecalculated <- (soyoilgen[i,8]/1000)+((0-(soyoilgen[i,5]*1000/beefgen[i,2])/(retailelasticity[9,9]*((soyoilgen[i,5]*1000/beefgen[i,2])/(soyoilgen[i,8]/1000))))) basesoyoilconstant <- (soyoilgen[i,5]*1000/beefgen[i,2])/((soyoilgen[i,6]/1000)^retailelasticity[9,9]) calsoyoilconstant <- (soyoilgen[i,5]*1000/beefgen[i,2])/((soyoilgen[i,6]/1000)^retailelasticity[9,9]) basesoyoilconsurpluspercapita <- basesoyoilconstant*(((basesoyoilchokepricecalculated^(retailelasticity[9,9]+1))/(retailelasticity[9,9]+1))-(((basesoyoilcrude/1000)^(retailelasticity[9,9]+1))/(retailelasticity[9,9]+1))) calsoyoilconsurpluspercapita <- basesoyoilconstant*(((basesoyoilchokepricecalculated^(retailelasticity[9,9]+1))/(retailelasticity[9,9]+1))-(((calsoyoilcrude/1000)^(retailelasticity[9,9]+1))/(retailelasticity[9,9]+1))) basesoyoilpopnotconsuming <- c(0) calsoyoilpopnotconsuming <- beefgen[i,2] - beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,9]) basesoyoilconsurplusconsuming <- basesoyoilconsurpluspercapita*beefgen[i,2] calsoyoilconsurplusconsuming <- calsoyoilconsurpluspercapita*beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,9]) basesoyoilconsurplusforgone <- basesoyoilconsurpluspercapita*basesoyoilpopnotconsuming calsoyoilconsurplusforgone <- calsoyoilconsurpluspercapita*calsoyoilpopnotconsuming basesoyoilconexpenditurepercapita <- (basesoyoilcrude/1000)*(basesoyoilfooduse*1000/beefgen[i,2]) calsoyoilconexpenditurepercapita <- (calsoyoilcrude/1000)*(calsoyoilfooduse*1000/beefgen[i,2]) basesoyoilconexpendituretotal <- basesoyoilconexpenditurepercapita*beefgen[i,2] calsoyoilconexpendituretotal <- calsoyoilconexpenditurepercapita*beefgen[i,2] #Soybean basesoybeansproduction <- soybeansgen[i,2] calsoybeansproduction <- basesoybeansproduction*(1+soybeansproduction) basesoybeansexports <- soybeansgen[i,4] calsoybeansexports <- soybeansgen[i,4]*(1+soybeansexports) basesoybeansBstock <- soybeansgen[i,5] calsoybeansBstock <- soybeansgen[i,5]*(1+lagged[25,1]) basesoybeansEstock <- soybeansgen[i,6] calsoybeansEstock <- soybeansgen[i,6]*(1+soybeansendingstocks) basesoybeanscrush <- soybeansgen[i,8] calsoybeanscrush <- soybeansgen[i,8]*(1+soybeansnonfeeduse) basesoybeansno1yellow <- soybeansgen[i,9] calsoybeansno1yellow <- soybeansgen[i,9]*(1+valuesmat[19,i]) basesoybeansfarmprice <- soybeansgen[i,10] calsoybeansfarmprice <- soybeansgen[i,10]*(1+valuesmat[19,i]) basesoybeansimports <- soybeansgen[i,3] calsoybeansimports <- calsoybeansexports+calsoybeansEstock+calsoybeanscrush-calsoybeansBstock-calsoybeansproduction basesoybeansvaluemeal <- soybeansgen[i,9]*soybeansgen[i,2] calsoybeansvaluemeal <- calsoybeansno1yellow*calsoybeansproduction basesoybeansvalueoil <- soyoilgen[i,8]*soyoilgen[i,1] calsoybeansvalueoil <- calsoyoilcrude*calsoyoilproduction basesoybeanscostsoybeans <- soybeansgen[i,8]*basesoybeansno1yellow calsoybeanscostsoybeans <- calsoybeanscrush*calsoybeansno1yellow basesoybeansreturntocrushing <- basesoybeansvaluemeal + basesoybeansvalueoil - basesoybeanscostsoybeans calsoybeansreturntocrushing <- calsoybeansvaluemeal + calsoybeansvalueoil - calsoybeanscostsoybeans basesoybeanstotalreturns <- soybeansbasecropreturn calsoybeanstotalreturns <- soybeansnewcropreturn basesoybeansquasirentcapitalandmanagement <- basesoybeanstotalreturns*soybeansshare[i,9] calsoybeansquasirentcapitalandmanagement <- basesoybeansquasirentcapitalandmanagement*(1+((calsoybeanstotalreturns-basesoybeanstotalreturns)/basesoybeanstotalreturns)/soybeansshare[i,9]) basesoybeanscashsalesvalue <- basesoybeansfarmprice*(basesoybeanscrush+basesoybeansexports) calsoybeanscashsalesvalue <- calsoybeansfarmprice*(calsoybeanscrush+calsoybeansexports) basesoybeansvalueofendinginventory <- basesoybeansfarmprice*basesoybeansEstock calsoybeansvalueofendinginventory <- calsoybeansfarmprice*calsoybeansEstock basesoybeansquasirentcapitalandmanagement1 <- basesoybeansquasirentcapitalandmanagement*(basesoybeanscrush+basesoybeansexports) calsoybeansquasirentcapitalandmanagement1 <- calsoybeansquasirentcapitalandmanagement*(calsoybeanscrush+calsoybeansexports) basesoybeansdirectpayment <- soybeansbaseacredirectpayments09+soybeansbaseacredirectpayments10+soybeansbaseacredirectpayments11+soybeansbaseacredirectpayments12+soybeansbaseacredirectpayments13+soybeansbaseacredirectpayments14+soybeansbaseacredirectpayments15+soybeansbaseacredirectpayments16+soybeansbaseacredirectpayments17+soybeansbaseacredirectpayments18 calsoybeansdirectpayment <- soybeansnewacredirectpayments09+soybeansnewacredirectpayments10+soybeansnewacredirectpayments11+soybeansnewacredirectpayments12+soybeansnewacredirectpayments13+soybeansnewacredirectpayments14+soybeansnewacredirectpayments15+soybeansnewacredirectpayments16+soybeansnewacredirectpayments17+soybeansnewacredirectpayments18 basesoybeansMktloan <- soybeansbaseacreLDP09+soybeansbaseacreLDP10+soybeansbaseacreLDP11+soybeansbaseacreLDP12+soybeansbaseacreLDP13+soybeansbaseacreLDP14+soybeansbaseacreLDP15+soybeansbaseacreLDP16+soybeansbaseacreLDP17+soybeansbaseacreLDP18 calsoybeansMktloan <- soybeansnewacreLDP09+soybeansnewacreLDP10+soybeansnewacreLDP11+soybeansnewacreLDP12+soybeansnewacreLDP13+soybeansnewacreLDP14+soybeansnewacreLDP15+soybeansnewacreLDP16+soybeansnewacreLDP17+soybeansnewacreLDP18 basesoybeansACRE <- soybeansbasearcepayment09*soybeansbasearcepayment109+soybeansbasearcepayment10*soybeansbasearcepayment110+soybeansbasearcepayment11*soybeansbasearcepayment111+soybeansbasearcepayment12*soybeansbasearcepayment112+soybeansbasearcepayment13*soybeansbasearcepayment113+soybeansbasearcepayment14*soybeansbasearcepayment114+soybeansbasearcepayment15*soybeansbasearcepayment115+soybeansbasearcepayment16*soybeansbasearcepayment116+soybeansbasearcepayment17*soybeansbasearcepayment117+soybeansbasearcepayment18*soybeansbasearcepayment118 calsoybeansACRE <- soybeansnewarcepayment09*soybeansnewarcepayment109+soybeansnewarcepayment10*soybeansnewarcepayment110+soybeansnewarcepayment11*soybeansnewarcepayment111+soybeansnewarcepayment12*soybeansnewarcepayment112+soybeansnewarcepayment13*soybeansnewarcepayment113+soybeansnewarcepayment14*soybeansnewarcepayment114+soybeansnewarcepayment15*soybeansnewarcepayment115+soybeansnewarcepayment16*soybeansnewarcepayment116+soybeansnewarcepayment17*soybeansnewarcepayment117+soybeansnewarcepayment18*soybeansnewarcepayment118 basesoybeansparticipation <- acreyear2009*0.1531+acreyear2010*0.1531+acreyear2011*0.1531+acreyear2012*0.1531+acreyear2013*0.1531+acreyear2014*0.1531+acreyear2015*0.1531+acreyear2016*0.1531+acreyear2017*0.1531+acreyear2018*0.1531 calsoybeansparticipation <- acreyear2009*0.1531+acreyear2010*0.1531+acreyear2011*0.1531+acreyear2012*0.1531+acreyear2013*0.1531+acreyear2014*0.1531+acreyear2015*0.1531+acreyear2016*0.1531+acreyear2017*0.1531+acreyear2018*0.1531 basesoybeansdirect <- soybeansbasedirectpayments*(1-basesoybeansparticipation)+basesoybeansparticipation*basesoybeansdirectpayment calsoybeansdirect <- soybeansnewdirectpayments*(1-calsoybeansparticipation)+calsoybeansparticipation*calsoybeansdirectpayment basesoybeansMLS <- basesoybeansACRE*basesoybeansparticipation calsoybeansMLS <- calsoybeansACRE*calsoybeansparticipation basesoybeansLDP <- soybeansbaseLDPactualpaid*(1-basesoybeansparticipation)+basesoybeansparticipation*basesoybeansMktloan calsoybeansLDP <- soybeansnewLDPactualpaid*(1-calsoybeansparticipation)+calsoybeansparticipation*calsoybeansMktloan basesoybeansCCP <- soybeansbaseCCPactualpaid calsoybeansCCP <- soybeansnewCCPactualpaid basesoybeansgovernmentpayments <- (1-basesoybeansparticipation)*(basesoybeansdirect*basesoybeansproduction+basesoybeansLDP*basesoybeansproduction)+basesoybeansparticipation*(basesoybeansdirect*basesoybeansproduction+basesoybeansMktloan*calsoybeansproduction+basesoybeansACRE*calsoybeansproduction) calsoybeansgovernmentpayments <- (1-calsoybeansparticipation)*(calsoybeansdirect*basesoybeansproduction+calsoybeansLDP*basesoybeansproduction)+calsoybeansparticipation*(calsoybeansdirect*basesoybeansproduction+calsoybeansMktloan*calsoybeansproduction+calsoybeansACRE*calsoybeansproduction) #Wheat basewheatproduction <- wheatgen[i,2] calwheatproduction <- basewheatproduction*(1+wheatproduction) basewheatexports <- wheatgen[i,4] calwheatexports <- wheatgen[i,4]*(1+wheatexports) basewheatBstock <- wheatgen[i,5] calwheatBstock <- wheatgen[i,5]*(1+lagged[24,1]) basewheatEstock <- wheatgen[i,6] calwheatEstock <- wheatgen[i,6]*(1+wheatendingstocks) basewheatfood <- wheatgen[i,7] calwheatfood <- wheatgen[i,7]*(1+wheatnonfeeduse) basewheatfeeduse <- wheatgen[i,8] calwheatfeeduse <- wheatgen[i,8]*(1+wheattotal) basewheatKSprice <- wheatgen[i,10] calwheatKSprice <- wheatgen[i,10]*(1+valuesmat[42,i]) basewheatfarmprice <- wheatgen[i,9] calwheatfarmprice <- wheatgen[i,9]*(1+valuesmat[42,i]) basewheatimports <- wheatgen[i,3] calwheatimports <- calwheatexports+calwheatEstock+calwheatfood+calwheatfeeduse-calwheatBstock-calwheatproduction basewheatfeedusebeefcattle <- Feedbalance[2,3] calwheatfeedusebeefcattle <- Feedbalance[2,3]*(1+valuesmat[37,i]) basewheatfeedusedairycattle <- Feedbalance[3,3] calwheatfeedusedairycattle <- Feedbalance[3,3]*(1+valuesmat[38,i]) basewheatfeeduseswine <- Feedbalance[1,3] calwheatfeeduseswine <- Feedbalance[1,3]*(1+valuesmat[39,i]) basewheatfeedusebirds <- Feedbalance[5,3] calwheatfeedusebirds <- Feedbalance[5,3]*(1+valuesmat[40,i]) basewheatfeeduselayers <- Feedbalance[6,3] calwheatfeeduselayers <- Feedbalance[6,3]*(1+valuesmat[41,i]) basewheatfeeduselambs <- Feedbalance[4,3] calwheatfeeduselambs <- Feedbalance[4,3]*(1+valuesmat[42,i]) basewheatchokepwheatcalculated <- (wheatgen[i,9]/1000)+((0-(wheatgen[i,8]*1000/beefgen[i,2])/(retailelasticity[6,6]*((wheatgen[i,8]*1000/beefgen[i,2])/(wheatgen[i,9]/1000))))) basewheatconstant <- (wheatgen[i,7]*1000/beefgen[i,2])/((wheatgen[i,9]/1000)^retailelasticity[6,6]) basewheatconsurpluspercapita <- basewheatconstant*(((basewheatchokepwheatcalculated^(retailelasticity[6,6]+1))/(retailelasticity[6,6]+1))-(((wheatgen[i,9]/1000)^(retailelasticity[6,6]+1))/retailelasticity[6,6]+1)) calwheatconsurpluspercapita <- basewheatconstant*(((basewheatchokepwheatcalculated^(retailelasticity[6,6]+1))/(retailelasticity[6,6]+1))-(((calwheatfarmprice/1000)^(retailelasticity[6,6]+1))/retailelasticity[6,6]+1)) basewheatpopnotconsuming <- c(0) calwheatpopnotconsuming <- beefgen[i,2]-beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,7]) basewheatconsurplusconsumingpop <- basewheatconsurpluspercapita*beefgen[i,2] calwheatconsurplusconsumingpop <- calwheatconsurpluspercapita*beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,7]) basewheatconsurplusforgone <- basewheatconsurpluspercapita*basewheatpopnotconsuming calwheatconsurplusforgone <- calwheatconsurpluspercapita*calwheatpopnotconsuming basewheatconexpendiurepercapita <- (wheatgen[i,9]/1000)*(wheatgen[i,7]*1000/beefgen[i,2]) calwheatconexpendiurepercapita <- (calwheatfarmprice/1000)*(calwheatfood*1000/beefgen[i,2]) basewheatconexpendiuretotal <- basewheatconexpendiurepercapita*beefgen[i,2] calwheatconexpendiuretotal <- basewheatconexpendiurepercapita*beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,7]) basewheattotalreturns <- wheatbasecropreturn calwheattotalreturns <- wheatnewcropreturn basewheatquasirentcapitalandmanagement <- basewheattotalreturns*wheatshare[i,9] calwheatquasirentcapitalandmanagement <- basewheatquasirentcapitalandmanagement*(1+((calwheattotalreturns-basewheattotalreturns)/basewheattotalreturns)/wheatshare[i,9]) basewheatcashsalesvalue <- basewheatfarmprice*(basewheatfeeduse+basewheatfood+basewheatexports) calwheatcashsalesvalue <- calwheatfarmprice*(calwheatfeeduse+calwheatfood+calwheatexports) basewheatvalueofendinginventory <- basewheatfarmprice*basewheatEstock calwheatvalueofendinginventory <- calwheatfarmprice*calwheatEstock basewheatquasirentcapitalandmanagement1 <- basewheatquasirentcapitalandmanagement*(basewheatfeeduse+basewheatfood+basewheatexports) calwheatquasirentcapitalandmanagement1 <- calwheatquasirentcapitalandmanagement*(calwheatfeeduse+calwheatfood+calwheatexports) basewheatdirectpayment <- wheatbaseacredirectpayments09+wheatbaseacredirectpayments10+wheatbaseacredirectpayments11+wheatbaseacredirectpayments12+wheatbaseacredirectpayments13+wheatbaseacredirectpayments14+wheatbaseacredirectpayments15+wheatbaseacredirectpayments16+wheatbaseacredirectpayments17+wheatbaseacredirectpayments18 calwheatdirectpayment <- wheatnewacredirectpayments09+wheatnewacredirectpayments10+wheatnewacredirectpayments11+wheatnewacredirectpayments12+wheatnewacredirectpayments13+wheatnewacredirectpayments14+wheatnewacredirectpayments15+wheatnewacredirectpayments16+wheatnewacredirectpayments17+wheatnewacredirectpayments18 basewheatMktloan <- wheatbaseacreLDP09+wheatbaseacreLDP10+wheatbaseacreLDP11+wheatbaseacreLDP12+wheatbaseacreLDP13+wheatbaseacreLDP14+wheatbaseacreLDP15+wheatbaseacreLDP16+wheatbaseacreLDP17+wheatbaseacreLDP18 calwheatMktloan <- wheatnewacreLDP09+wheatnewacreLDP10+wheatnewacreLDP11+wheatnewacreLDP12+wheatnewacreLDP13+wheatnewacreLDP14+wheatnewacreLDP15+wheatnewacreLDP16+wheatnewacreLDP17+wheatnewacreLDP18 basewheatACRE <- wheatbasearcepayment09*wheatbasearcepayment109+wheatbasearcepayment10*wheatbasearcepayment110+wheatbasearcepayment11*wheatbasearcepayment111+wheatbasearcepayment12*wheatbasearcepayment112+wheatbasearcepayment13*wheatbasearcepayment113+wheatbasearcepayment14*wheatbasearcepayment114+wheatbasearcepayment15*wheatbasearcepayment115+wheatbasearcepayment16*wheatbasearcepayment116+wheatbasearcepayment17*wheatbasearcepayment117+wheatbasearcepayment18*wheatbasearcepayment118 calwheatACRE <- wheatnewarcepayment09*wheatnewarcepayment109+wheatnewarcepayment10*wheatnewarcepayment110+wheatnewarcepayment11*wheatnewarcepayment111+wheatnewarcepayment12*wheatnewarcepayment112+wheatnewarcepayment13*wheatnewarcepayment113+wheatnewarcepayment14*wheatnewarcepayment114+wheatnewarcepayment15*wheatnewarcepayment115+wheatnewarcepayment16*wheatnewarcepayment116+wheatnewarcepayment17*wheatnewarcepayment117+wheatnewarcepayment18*wheatnewarcepayment118 basewheatparticipation <- acreyear2009*0.1268+acreyear2010*0.1268+acreyear2011*0.1268+acreyear2012*0.1268+acreyear2013*0.1268+acreyear2014*0.1268+acreyear2015*0.1268+acreyear2016*0.1268+acreyear2017*0.1268+acreyear2018*0.1268 calwheatparticipation <- acreyear2009*0.1268+acreyear2010*0.1268+acreyear2011*0.1268+acreyear2012*0.1268+acreyear2013*0.1268+acreyear2014*0.1268+acreyear2015*0.1268+acreyear2016*0.1268+acreyear2017*0.1268+acreyear2018*0.1268 basewheatdirect <- wheatbasedirectpayments*(1-basewheatparticipation)+basewheatparticipation*basewheatdirectpayment calwheatdirect <- wheatnewdirectpayments*(1-calwheatparticipation)+calwheatparticipation*calwheatdirectpayment basewheatMLS <- basewheatACRE*basewheatparticipation calwheatMLS <- calwheatACRE*calwheatparticipation basewheatLDP <- wheatbaseLDPactualpaid*(1-basewheatparticipation)+basewheatparticipation*basewheatMktloan calwheatLDP <- wheatnewLDPactualpaid*(1-calwheatparticipation)+calwheatparticipation*calwheatMktloan basewheatCCP <- wheatbaseCCPactualpaid calwheatCCP <- wheatnewCCPactualpaid basewheatgovernmentpayments <- (1-basewheatparticipation)*(basewheatdirect*basewheatproduction+basewheatLDP*basewheatproduction)+basewheatparticipation*(basewheatdirect*basewheatproduction+basewheatMktloan*calwheatproduction+basewheatACRE*calwheatproduction) calwheatgovernmentpayments <- (1-calwheatparticipation)*(calwheatdirect*basewheatproduction+calwheatLDP*basewheatproduction)+calwheatparticipation*(calwheatdirect*basewheatproduction+calwheatMktloan*calwheatproduction+calwheatACRE*calwheatproduction) #Cattle basecattleimportfeeding <- cattlegen[i,1] calcattleimportfeeding <- cattlegen[i,1]*(1+beefcattleimportsnot) basecattleimportslaughter <- cattlegen[i,2] calcattleimportslaughter <- cattlegen[i,2]*(1+beefcattleimportsimmediate) basecattleimportscows <- cattlegen[i,3] basecattleimportsPB <- cattlegen[i,4] basecattleimportstotal <- cattlegen[i,5] basecattleexportsfeeding <- cattlegen[i,6] calcattleexportsfeeding <- cattlegen[i,6]*(1+beefcattleexportsnot) basecattleexportsslaughter <- cattlegen[i,7] calcattleexportsslaughter <- cattlegen[i,7]*(1+beefcattleexportsimmediate) basecattleexportstotal <- cattlegen[i,9] basecattlecommsteers <- cattlegen[i,10] basecattlecommheifers <- cattlegen[i,11] basecattlecommcows <- cattlegen[i,12] calcattlecommcows <- cattlegen[i,12]*(1+lagged[1,1]+animalremoval[i,4]) basecattlelivesteerprice <- cattlegen[i,15] calcattlelivesteerprice <- cattlegen[i,15]*(1+valuesmat[3,i]) basecattleinvfinish <- as.numeric(cattlegen[i,16]) calcattleinvfinish <- as.numeric(cattlegen[i,16])*(1+lagged[1,1]+animalremoval[i,4]) basecattleinvbg2 <- as.numeric(cattlegen[i,17]) calcattleinvbg2 <- as.numeric(cattlegen[i,17])*(1+lagged[2,1]+animalremoval[i,5]) basecattleinvbg1 <- as.numeric(cattlegen[i,18]) calcattleinvbg1 <- as.numeric(cattlegen[i,18])*(1+lagged[3,1]+animalremoval[i,6]) basecattleinvprewean <- as.numeric(cattlegen[i,19]) calcattleinvprewean <- as.numeric(cattlegen[i,19])*(1+lagged[4,1]+animalremoval[i,7]) basecattleinvpostbirth <- cattlegen[i,20] calcattleinvpostbirth <- cattlegen[i,20]*(1+animalremoval[i,8]+otherelasticity[3,1]*beefcattleinventory) basecattleinvpostpartum <- as.numeric(cattlegen[i,21]) calcattleinvpostpartum <- as.numeric(cattlegen[i,21])*(1+beefcattleinventory) basecattleinvtri3 <- as.numeric(cattlegen[i,22]) calcattleinvtri3 <- as.numeric(cattlegen[i,22])*(1+lagged[5,1]+animalremoval[i,9]) basecattleinvtri2 <- as.numeric(cattlegen[i,23]) calcattleinvtri2 <- as.numeric(cattlegen[i,23])*(1+lagged[6,1]+animalremoval[i,10]) basecattleinvtri1 <- cattlegen[i,24] calcattleinvtri1 <- cattlegen[i,24]*(1+lagged[7,1]+animalremoval[i,11]) basecattleinvrep <- as.numeric(cattlegen[i,25]) calcattleinvrep <- as.numeric(cattlegen[i,25])*(1+otherelasticity[8,1]*(expectedreturn[i,2]-expectedreturn[i,3]+animalremoval[i,13]+lagged[8,1])) basecattleinvbulls <- as.numeric(cattlegen[i,26]) calcattleinvbulls <- as.numeric(cattlegen[i,26])*(1+animalremoval[i,29]) basecattlecommslaughter <- as.numeric(cattlegen[i,13]) calcattlecommslaughter <- calcattleinvfinish + calcattleimportslaughter + calcattlecommcows - calcattleexportsslaughter basecattlecommliveslaughter <- cattlegen[i,12] calcattlecommliveslaughter <- (beefgen[i,4]*(1+beefoutput))/(calcattlecommslaughter+calcattleimportslaughter)*1000 basecattlevalueofanimalsslaughtered <- ((basecattlelivesteerprice/100)*basecattlecommslaughter*basecattlecommliveslaughter)/1000 calcattlevalueofanimalsslaughtered <- ((calcattlelivesteerprice/100)*calcattlecommslaughter*calcattlecommliveslaughter)/1000 basecattlevalueofanimalsfuture <- (basecattlelivesteerprice/100)*((basecattleinvbg2*900)+(basecattleinvbg1*675)+(basecattleinvprewean*475)+(basecattleinvpostbirth*275)+(basecattleimportfeeding*475)-(basecattleexportsfeeding*475))/1000 calcattlevalueofanimalsfuture <- (calcattlelivesteerprice/100)*((calcattleinvbg2*900)+(calcattleinvbg1*675)+(calcattleinvprewean*475)+(calcattleinvpostbirth*275)+(calcattleimportfeeding*475)-(calcattleexportsfeeding*475))/1000 basecattlecoarsecost <- baseCGfeedusebeefcattle*baseCGyellowprice calcattlecoarsecost <- calCGfeedusebeefcattle*calCGyellowprice basecattlewheatcost <- basewheatfeedusebeefcattle*basewheatKSprice calcattlewheatcost <- calwheatfeedusebeefcattle*calwheatKSprice basecattleforagecost <- Feedbalance[2,2]*baseForageprice calcattleforagecost <- Feedbalance[2,2]*(1+valuesmat[26,i])*calForageprice basecattlevalueofmeatremoved <- c(0) calcattlevalueofmeatremoved <- -((basecattlelivesteerprice/100)*((basecattleinvfinish*animalremoval[i,4]*1200)+(basecattleinvbg2*animalremoval[i,5]*900)+(basecattleinvbg1*animalremoval[i,6]*675)+(basecattleinvprewean*animalremoval[i,7]*475)+(basecattleinvpostbirth*animalremoval[i,8]*275)))/1000 basecattleperanimal <- basecattlelivesteerprice*cattleshare[i,1] calcattleperanimal <- basecattlelivesteerprice*cattleshare[i,1]*(1+((valuesmat[3,i]-cattleshare[i,5]*valuesmat[49,i]-cattleshare[i,6]*valuesmat[42,i]-cattleshare[i,7]*valuesmat[36,i]-cattleshare[i,8]*valuesmat[29,i])/cattleshare[i,9])) basecattletotal <- (basecattleperanimal/100)*(basecattlecommslaughter/1000)*basecattlecommliveslaughter calcattletotal <- (calcattleperanimal/100)*(calcattlecommslaughter/1000)*calcattlecommliveslaughter basecattleexpectedbenefit <- dairygen[i,11]*cattleshare[i,9]+((basecattleperanimal/2)/1.05)+(0/(1.05^2))+((basecattleperanimal/2)/(1.05^3))+(0/(1.05^4)) calcattleexpectedbenefit <- dairygen[i,11]*cattleshare[i,9]+((calcattleperanimal/2)/1.05)+(0/(1.05^2))+((calcattleperanimal/2)/(1.05^3))+(0/(1.05^4)) basecattlevalueofbreedingremoved <- c(0) calcattlevalueofbreedingremoved <- -((((basecattleinvpostpartum*animalremoval[i,9])+(basecattleinvtri3*animalremoval[i,10])+(basecattleinvtri2*animalremoval[i,11])+(basecattleinvtri1*animalremoval[i,12])+(basecattleinvbulls*animalremoval[i,29]))*1200+(basecattleinvrep*animalremoval[i,13])*675)*(basecattleexpectedbenefit/100))/1000 basecattlevalueofbreeding <- (basecattleexpectedbenefit/100)*(basecattleinvpostpartum+basecattleinvtri3+basecattleinvtri2+basecattleinvtri1+basecattleinvrep+basecattleinvbulls)*basecattlecommliveslaughter calcattlevalueofbreeding <- (calcattleexpectedbenefit/100)*(calcattleinvpostpartum+calcattleinvtri3+calcattleinvtri2+calcattleinvtri1+calcattleinvrep+calcattleinvbulls)*calcattlecommliveslaughter #Beef basebeefpopulation <- beefgen[i,2] calbeefpopulation <- beefgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,1]) basebeeftotalcon <- beefgen[i,3] calbeeftotalcon <- beefgen[i,3]*(1+beefconsumption) basebeefpercapitacon <- basebeeftotalcon/basebeefpopulation calbeefpercapitacon <- calbeeftotalcon/calbeefpopulation basebeefproduction <- beefgen[i,4] calbeefproduction <- beefgen[i,4]*(1+beefoutput) basebeefimports <- beefgen[i,5] calbeefimports <- beefgen[i,5]*(1+beefimports) basebeefexports <- beefgen[i,6] calbeefexports <- beefgen[i,6]*(1+beefexports) basebeefbstock <- beefgen[i,7] calbeefbstock <- beefgen[i,7]*(1+lagged[28,1]) basebeefestock <- beefgen[i,8] calbeefestock <- calbeefproduction+calbeefimports+calbeefbstock-calbeefexports-calbeeftotalcon basebeefcutout <- beefgen[i,9] calbeefcutout <- beefgen[i,9]*(1+valuesmat[2,i]) basebeefretailprice <- beefgen[i,10] calbeefretailprice <- basebeefretailprice*(1+(beefgen[i,9]/beefgen[i,10])*valuesmat[2,i]+((beefgen[i,10]-beefgen[i,9])/beefgen[i,10]*retailwholesale[i,1])) basebeefchokepricecalculated <- (basebeefretailprice/100)+((0-basebeefpercapitacon)/(retailelasticity[1,1]*(basebeefpercapitacon/(basebeefretailprice/100)))) calbeefchokepricecalculated <- (basebeefretailprice/100)+((0-basebeefpercapitacon)/(retailelasticity[1,1]*(basebeefpercapitacon/(basebeefretailprice/100)))) basebeefconstant <- basebeefpercapitacon/((basebeefretailprice/100)^retailelasticity[1,1]) calbeefconstant <- basebeefpercapitacon/((basebeefretailprice/100)^retailelasticity[1,1]) basebeefconsurpluspercapita <- basebeefconstant*(((basebeefchokepricecalculated^(retailelasticity[1,1]+1))/(retailelasticity[1,1]+1))-(((basebeefretailprice/100)^(retailelasticity[1,1]+1))/(retailelasticity[1,1]+1))) calbeefconsurpluspercapita <- basebeefconstant*(((basebeefchokepricecalculated^(retailelasticity[1,1]+1))/(retailelasticity[1,1]+1))-(((calbeefretailprice/100)^(retailelasticity[1,1]+1))/(retailelasticity[1,1]+1))) basebeefpopnotconsuming <- c(0) calbeefpopnotconsuming <- basebeefpopulation - calbeefpopulation basebeefconsurplusconsumingpop <- basebeefconsurpluspercapita*basebeefpopulation calbeefconsurplusconsumingpop <- calbeefconsurpluspercapita*calbeefpopulation basebeefconsurplusforegone <- basebeefconsurpluspercapita*basebeefpopnotconsuming calbeefconsurplusforegone <- calbeefconsurpluspercapita*calbeefpopnotconsuming basebeefconexpenditurepercapita <- (basebeefretailprice/100)*basebeefpercapitacon calbeefconexpenditurepercapita <- (calbeefretailprice/100)*calbeefpercapitacon basebeefconexpendituretotal <- basebeefconexpenditurepercapita*basebeefpopulation calbeefconexpendituretotal <- calbeefconexpenditurepercapita*calbeefpopulation basebeefretailproductionvalue <- basebeefproduction*(basebeefretailprice/100)*0.6617 calbeefretailproductionvalue <- calbeefproduction*(calbeefretailprice/100)*0.6617 basebeefproducerproductionvalue <- basebeefproduction*(basebeefcutout/100)*0.6617 calbeefproducerproductionvalue <- calbeefproduction*(calbeefcutout/100)*0.6617 basebeefexogenousinputcosts <- basebeefproducerproductionvalue*beefshare[1,1] calbeefexogenousinputcosts <- basebeefexogenousinputcosts*(1+exogenousinput[1,1]) basebeefanimalcosts <- ((basecattlelivesteerprice/100)*basecattlecommslaughter*basecattlecommliveslaughter)/1000 calbeefanimalcosts <- ((calcattlelivesteerprice/100)*calcattlecommslaughter*calcattlecommliveslaughter)/1000 basebeefcapitalcosts <- basebeefproducerproductionvalue - basebeefexogenousinputcosts - basebeefanimalcosts calbeefcapitalcosts <- calbeefproducerproductionvalue - calbeefexogenousinputcosts - calbeefanimalcosts #Birds baselayernumbers <- birdsgen[i,1] callayernumers <- birdsgen[i,1]*(1+valuesmat[24,i]) baselayernumbers <- birdsgen[i,2] calbroilernumbers <- birdsgen[i,2]*(1+valuesmat[23,i]) basevalueofmeatbirdsslaughtered <- poultrymeatgen[i,4]*(poultrymeatgen[i,9]/100)*0.3772*poultrymeatshare[i,3] calvalueofmeatbirdsslaughtered <- ((poultrymeatgen[i,4]*(1+poultrymeatoutput))*((poultrymeatgen[i,9]*(1+valuesmat[11,i]))/100)*0.3722)*poultrymeatshare[i,3] basevalueofanimalsremoved <- c(0) calvalueofanimalsremoved <- -basevalueofanimalsremoved*animalremoval[i,1] #DairyCattle basedairytotalimports <- dairygen[i,1] caldairytotalimports <- dairygen[i,1]*(1+dairycattleimports) basedairytotalexports <- dairygen[i,5] caldairytotalexports <- dairygen[i,5]*(1+dairycattleexports) basedairycommslaughter <- dairygen[i,9] caldairycommslaughter <- dairygen[i,9]*(1+valuesmat[6,i]) basedairyconliveslaughter <- dairygen[i,10] caldairyconliveslaughter <- beefgen[i,4]/(basecattlecommslaughter+basedairycommslaughter)*1000 basedairyBFandDC <- dairygen[i,11] caldairyBFandDC <- dairygen[i,11]*(1+valuesmat[3,i]) basedairyinvDMI <- as.numeric(dairygen[i,12]) caldairyinvDMI <- as.numeric(dairygen[i,12])*(1+dairycattleinventory) basedairyinvPP <- as.numeric(dairygen[i,13]) caldairyinvPP <- as.numeric(dairygen[i,13])*(1+dairycattleinventory) basedairyinvDry <- as.numeric(dairygen[i,14]) caldairyinvDry <- as.numeric(dairygen[i,14])*(1+dairycattleinventory) basedairyinvRW <- as.numeric(dairygen[i,15]) caldairyinvRW <- as.numeric(dairygen[i,15])*(1+dairycattleinventory) basedairyinvRheif <- as.numeric(dairygen[i,16]) caldairyinvRheif <- as.numeric(dairygen[i,16])*(1+otherelasticity[13,1]*(expectedreturn[i,6]-expectedreturn[i,7])+animalremoval[i,18]) basedairyinvbulls <- as.numeric(dairygen[i,17]) caldairyinvbulls <- as.numeric(dairygen[i,17])*(1+animalremoval[i,30]) basedairyreplacementheifers <- as.numeric(dairygen[i,18]) caldairyreplacementheifers <- as.numeric(dairygen[i,18])*(1+valuesmat[3,i]) basedairycalves <- as.numeric(dairygen[i,19]) caldairycalves <- as.numeric(dairygen[i,19])*(1+valuesmat[3,i]) basedairyvalueofslaughtered <- ((basedairyBFandDC/100)*basedairyconliveslaughter*basedairycommslaughter)/1000 caldairyvalueofslaughtered <- ((caldairyBFandDC/100)*caldairyconliveslaughter*caldairycommslaughter)/1000 basedairyexpectedbenefit <- (basedairyBFandDC/100)*basedairyconliveslaughter+((0.5*basedairyreplacementheifers+0.5*basedairycalves)/1.05)+(746/1.05^2)+((0.5*basedairyreplacementheifers+0.5*basedairycalves)/1.05^3)+(746/1.05^4) caldairyexpectedbenefit <- (caldairyBFandDC/100)*caldairyconliveslaughter+((0.5*caldairyreplacementheifers+0.5*caldairycalves)/1.05)+((746*(1+valuesmat[4,i]))/1.05^2)+((0.5*caldairyreplacementheifers+0.5*caldairycalves)/1.05^3)+((746*(1+valuesmat[4,i])/1.05^4)) basedairyvalueofremoved <- c(0) caldairyvalueofremoved <- -((basedairyinvDMI+basedairyinvPP+basedairyinvDry+basedairyinvRW+basedairyinvRheif)*animalremoval[i,3]+basedairyinvRheif*animalremoval[i,18]+basedairyinvbulls*animalremoval[i,30])*basedairyexpectedbenefit/1000 basedairyvalueofinventory <- (basedairyinvDMI+basedairyinvPP+basedairyinvDry+basedairyinvRW+basedairyinvRheif+basedairyinvbulls)*basedairyexpectedbenefit/1000 caldairyvalueofinventory <- (caldairyinvDMI+caldairyinvPP+caldairyinvDry+caldairyinvRW+caldairyinvRheif+caldairyinvbulls)*caldairyexpectedbenefit/1000 #Eggs baseeggspopulation <- eggsgen[i,2] caleggspopulation <- eggsgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,5]) baseeggstotalconsumption <- eggsgen[i,3] caleggstotalconsumption <- eggsgen[i,3]*(1+eggconsumption) baseeggsconsumption <- eggsgen[i,1] caleggsconsumption <- caleggstotalconsumption*12/caleggspopulation baseeggsproduction <- eggsgen[i,4] caleggsproduction <- eggsgen[i,4]*(1+eggsoutput) baseeggsimports <- eggsgen[i,5] caleggsimports <- eggsgen[i,5]*(1+eggsimports) baseeggsexports <- eggsgen[i,6] caleggsexports <- eggsgen[i,6]*(1+eggsexports) baseeggsbeginningstocks <- eggsgen[i,7] caleggsbeginningstocks <- eggsgen[i,7]*(1+lagged[32,1]) baseeggsendingstocks <- eggsgen[i,8] caleggsendingstocks <- eggsgen[i,8]*(1-stockelasiticity[1,12]*valuesmat[13,i]) baseeggspriceswholesale <- eggsgen[i,9] caleggspriceswholesale <- eggsgen[i,9]*valuesmat[13,i] baseeggsretail <- eggsgen[i,10] caleggsretail <- eggsgen[i,10]*(1+((eggsgen[i,9]/eggsgen[i,10])*valuesmat[13,i]+((eggsgen[i,10]-eggsgen[i,9])/eggsgen[i,10])*retailwholesale[i,5])) baseeggshatchingegguse <- eggsgen[i,11] caleggshatchingegguse <- caleggsproduction+caleggsbeginningstocks+caleggsimports-caleggstotalconsumption-caleggsexports-caleggsendingstocks baseeggschokepricecalculated <- (baseeggsretail/100)+((0-baseeggsconsumption/12)/(retailelasticity[10,10]*((baseeggsconsumption/12)/(baseeggsretail/100)))) caleggschokepricecalculated <- (baseeggsretail/100)+((0-baseeggsconsumption/12)/(retailelasticity[10,10]*((baseeggsconsumption/12)/(baseeggsretail/100)))) baseeggsconstant <- (baseeggsconsumption/12)/((baseeggsretail/100)^retailelasticity[10,10]) caleggsconstant <- (baseeggsconsumption/12)/((baseeggsretail/100)^retailelasticity[10,10]) baseeggsconsurpluspercapita <- baseeggsconstant*(((baseeggschokepricecalculated^(retailelasticity[10,10]+1))/(retailelasticity[10,10]+1))-(((baseeggsretail/100)^(retailelasticity[10,10]+1))/(retailelasticity[10,10]+1))) caleggsconsurpluspercapita <- baseeggsconstant*(((baseeggschokepricecalculated^(retailelasticity[10,10]+1))/(retailelasticity[10,10]+1))-(((caleggsretail/100)^(retailelasticity[10,10]+1))/(retailelasticity[10,10]+1))) baseeggspopnotconsuming <- c(0) caleggspopnotconsuming <- baseeggspopulation - caleggspopulation baseeggsconsurplusconsumingpop <- baseeggsconsurpluspercapita*baseeggspopulation caleggsconsurplusconsumingpop <- caleggsconsurpluspercapita*caleggspopulation baseeggsconsurplusforegone <- baseeggsconsurpluspercapita*baseeggspopnotconsuming caleggsconsurplusforegone <- caleggsconsurpluspercapita*caleggspopnotconsuming baseeggsconexpenditurepercapita <- (baseeggsretail*baseeggsconsumption/12)/100 caleggsconexpenditurepercapita <- (caleggsretail*caleggsconsumption/12)/100 baseeggsconexpendituretotal <- baseeggsconexpenditurepercapita*baseeggspopulation caleggsconexpendituretotal <- caleggsconexpenditurepercapita*caleggspopulation baseeggsretailproductionvalue <- baseeggsproduction*(baseeggsretail/100)*0.2814 caleggsretailproductionvalue <- caleggsproduction*(caleggsretail/100)*0.2814 baseeggsproducerproductionvalue <- baseeggsproduction*(baseeggspriceswholesale/100)*0.2814 caleggsproducerproductionvalue <- caleggsproduction*(caleggspriceswholesale/100)*0.2814 baseeggsexogenousinputcosts <- baseeggsproducerproductionvalue*birdsshare[1,1] caleggsexogenousinputcosts <- baseeggsexogenousinputcosts*(1+exogenousinput[5,1]) baseeggsfeedcosts <- baseCGfeeduselayers*baseCGyellowprice caleggsfeedcosts <- calCGfeeduselayers*calCGyellowprice baseeggscosts <- basewheatfeeduselayers*basewheatKSprice caleggscosts <- calwheatfeeduselayers*calwheatKSprice baseeggssoymealcosts <- basesoymealfeeduselayers*basesoymealdecatur caleggssoymealcosts <- calsoymealfeeduselayers*calsoymealdecatur baseeggscapitalcosts <- baseeggsproducerproductionvalue-baseeggsexogenousinputcosts-baseeggssoymealcosts caleggscapitalcosts <- caleggsproducerproductionvalue-caleggsexogenousinputcosts-caleggssoymealcosts #Hog basehogimportsfeeders <- swinegen[i,1] calhogimportsfeeders <- swinegen[i,1]*(1+hogsimportsnot) basehogimportsslaughter <- swinegen[i,2] calhogimportsslaughter <- swinegen[i,2]*(1+hogsimportsimmediate) basehogimportsother <- swinegen[i,6] basehogtotalimports <- swinegen[i,7] basehogexportsfeeders <- swinegen[i,8] calhogexportsfeeders <- swinegen[i,8]*(1+hogsexportsnot) basehogexportsslaughter <- swinegen[i,9] calhogexportsslaughter <- swinegen[i,9]*(1+hogsexportsimmediate) basehogexportspurebred <- swinegen[i,10] basehogtotalexports <- swinegen[i,11] basehogbarrows <- swinegen[i,12] basehogsows <- swinegen[i,13] calhogsows <- swinegen[i,13]*(1+lagged[9,1]+animalremoval[i,14]) basehogboars <- swinegen[i,14] basehogcommliveslaughter <- swinegen[i,16] calhogcommliveslaughter <- (porkgen[i,4]*(1+porkoutput)/swinegen[i,15])*1000 basehogcarcass <- swinegen[i,17] calhogcarcass <- swinegen[i,17]*(1+valuesmat[9,i]) basehoginvbreeding <- swinegen[i,18] calhoginvbreeding <- swinegen[i,18]*(1+otherelasticity[10,1]*(expectedreturn[i,5]-valuesmat[9,i])+otherelasticity[11,1]*lagged[11,1]+animalremoval[i,17]) basehoginvpigcrop <- swinegen[i,19] calhoginvpigcrop <- swinegen[i,19]*(1+otherelasticity[9,1]*(expectedreturn[i,4]-lagged[36,1])+otherelasticity[6,1]*lagged[11,1]+animalremoval[i,16]) basehoginvlate <- as.numeric(swinegen[i,20]) calhoginvlate <- as.numeric(swinegen[i,20])*(1+lagged[9,1]+animalremoval[i,14]) basehoginvearly <- as.numeric(swinegen[i,21]) calhoginvearly <- as.numeric(swinegen[i,21])*(1+lagged[10,1]+animalremoval[i,15]) basehogpricesows <- as.numeric(swinegen[i,22]) calhogpricesows <- as.numeric(swinegen[i,22])*(1+valuesmat[9,i]) basehogtotal <- swinegen[i,15] calhogtotal <- basehoginvlate + basehogimportsslaughter + basehogsows - basehogexportsslaughter basehogvaluestofslaughtered <- basehogtotal*(basehogcarcass/100)*basehogcommliveslaughter/1000 calhogvaluesofslaughtered <- calhogtotal*(calhogcarcass/100)*calhogcommliveslaughter/1000 basehogvaluesoffuture <- (basehogcarcass/100)*(basehoginvearly+basehogimportsfeeders-basehogexportsfeeders)*120/1000 calhogvaluesoffuture <- (calhogcarcass/100)*(calhoginvearly+calhogimportsfeeders-calhogexportsfeeders)*120/1000 basehogsCGcosts <- baseCGfeeduseswine*baseCGyellowprice calhogsCGcosts <- calCGfeeduseswine*calCGyellowprice basehogwheatcost <- basewheatfeeduseswine*basewheatKSprice calhogwheatcost <- calwheatfeeduseswine*calwheatKSprice basehogsoymealcosts <- basesoymealfeeduseswine*basesoymealdecatur calhogsoymealcosts <- calsoymealfeeduseswine*calsoymealdecatur basehogvalueofmeatanimalsremoved <- c(0) calhogvalueofmeatanimalsremoved <- -(((basehoginvpigcrop*5*animalremoval[i,16])+(basehoginvlate*265*animalremoval[i,14])+(basehoginvearly*120*animalremoval[i,15]))*(basehogcarcass/100))/1000 basehogperanimal <- basehogcarcass*swineshare[i,9] calhogperanimal <- basehogcarcass*swineshare[i,9]*(1+((valuesmat[9,i]-swineshare[i,5]*valuesmat[49,i]-swineshare[i,6]*valuesmat[42,i]-swineshare[i,7]*valuesmat[36,i]-swineshare[i,8]*valuesmat[29,i])/swineshare[i,9])) basehogtotal <- (basehogperanimal/100)*(basehogtotal/1000)*basehogcommliveslaughter calhogtotal <- (calhogperanimal/100)*(calhogtotal/1000)*calhogcommliveslaughter basehogexpectedbenefit <- basehogpricesows*swineshare[i,9]+((basehogperanimal/2)*9.5)/1.05+((basehogperanimal/2)*19)/(1.05^2) calhogexpectedbenefit <- calhogpricesows*swineshare[i,9]+((calhogperanimal/2)*9.5)/1.05+((calhogperanimal/2)*19)/(1.05^2) basehogvalueofbreedingremoved <- c(0) calhogvalueofbreedingremoved <- -(calhoginvbreeding*animalremoval[i,17]*265)*(basehogexpectedbenefit/100)/1000 basehogvalueofinventory <- basehogexpectedbenefit*basehoginvbreeding*basehogcommliveslaughter/1000 calhogvalueofinventory <- calhogexpectedbenefit*calhoginvbreeding*calhogcommliveslaughter/1000 #Lamb/sheep baselambimports <- sheepgen[i,1] callambimports <- sheepgen[i,1]*(1+lambsheepimports) baselambexports <- sheepgen[i,5] callambexports <- sheepgen[i,5]*(1+lambsheepexports) baselambpriceslaughter <- sheepgen[i,11] callambpriceslaughter <- sheepgen[i,11]*(1+valuesmat[16,i]) baselambinvfinish <- as.numeric(sheepgen[i,12]) callambinvfinish <- as.numeric(sheepgen[i,12])*(1+lagged[15,1]+animalremoval[i,22]) baselambinvgrower <- as.numeric(sheepgen[i,13]) callambinvgrower <- as.numeric(sheepgen[i,13])*(1+lagged[16,1]+animalremoval[i,23]) baselambinvbackground <- as.numeric(sheepgen[i,14]) callambinvbackground <- as.numeric(sheepgen[i,14])*(1+lagged[17,1]+animalremoval[i,24]) baselambinvprewean <- as.numeric(sheepgen[i,15]) callambinvprewean <- as.numeric(sheepgen[i,15])*(1+otherelasticity[18,1]*lambsheepinventory+animalremoval[i,25]) baselambinvlactating <- as.numeric(sheepgen[i,16]) callambinvlactating <- as.numeric(sheepgen[i,16])*(1+lagged[18,1]+animalremoval[i,26]) baselambinvgestating <- as.numeric(sheepgen[i,17]) callambinvgestating <- as.numeric(sheepgen[i,17])*(1+lagged[19,1]+animalremoval[i,27]) baselambinvbreeding <- as.numeric(sheepgen[i,18]) callambinvbreeding <- as.numeric(sheepgen[i,18])*(1+lagged[19,1]+animalremoval[i,27]) baselambinvpostweaning <- as.numeric(sheepgen[i,19]) callambinvpostweaning <- as.numeric(sheepgen[i,19])*(1+lambsheepinventory) baselambinvrams <- as.numeric(sheepgen[i,20]) callambinvrams <- as.numeric(sheepgen[i,20])*(1+animalremoval[i,31]) baselambinvreplacement <- as.numeric(sheepgen[i,21]) callambinvreplacement <- as.numeric(sheepgen[i,21])*(1+otherelasticity[16,1]*(expectedreturn[i,9]-valuesmat[16,i])+ewesreplacement+otherelasticity[17,1]*lagged[37,1]) ### ewes replacement baselambeweprice <- as.numeric(sheepgen[i,22]) callambeweprice <- as.numeric(sheepgen[i,22])*(1+valuesmat[16,i]) baselambslaughter <- sheepgen[i,9] callambslaughter <- callambinvfinish + callambimports - callambexports baselambliveslaughter <- sheepgen[i,10] callambliveslaughter <- (sheeplambmeatgen[i,4]*(1+lambsheepmeatoutput))/baselambslaughter*1000 baselambvalueofslaughtered <- (baselambpriceslaughter/100)*baselambslaughter*baselambliveslaughter/1000 callambvalueofslaughtered <- (callambpriceslaughter/100)*callambslaughter*callambliveslaughter/1000 baselambvalueoffuture <- ((baselambpriceslaughter/100)*((baselambinvgrower*105)+(baselambinvbackground*55)+(baselambinvprewean*15)))/1000 callambvalueoffuture <- ((callambpriceslaughter/100)*((callambinvgrower*105)+(callambinvbackground*55)+(callambinvprewean*15)))/1000 baselambCGcosts <- baseCGfeeduselambs*baseCGyellowprice callambCGcosts <- calCGfeeduselambs*calCGyellowprice baselambwheatcost <- basewheatfeeduselambs*basewheatKSprice callambwheatcost <- calwheatfeeduselambs*calwheatKSprice baselambsoymealcosts <- basesoymealfeeduselambs*basesoymealdecatur callambsoymealcosts <- calsoymealfeeduselambs*calsoymealdecatur baselambforagecosts <- Feedbalance[4,2]*baseForageprice callambforagecosts <- Feedbalance[4,2]*(1+valuesmat[28,i])*calForageprice baselambvalueofmeatremoved <- c(0) callambvalueofmeatremoved <- -(((baselambinvfinish*animalremoval[i,22]*140)+(baselambinvgrower*animalremoval[i,23]*105)+(baselambinvbackground*animalremoval[i,24]*55)+(baselambinvprewean*animalremoval[i,25]*15))*(baselambpriceslaughter/100))/1000 baselambperanimal <- baselambpriceslaughter*sheepshare[i,9] callambperanimal <- baselambpriceslaughter*sheepshare[i,9]*(1+((valuesmat[3,i]-sheepshare[i,5]*valuesmat[49,i]-sheepshare[i,6]*valuesmat[42,i]-sheepshare[i,7]*valuesmat[36,i]-sheepshare[i,8]*valuesmat[29,i])/sheepshare[i,9])) baselambtotal <- (baselambperanimal/100)*(baselambslaughter/1000)*baselambliveslaughter callambtotal <- (callambperanimal/100)*(callambslaughter/1000)*callambliveslaughter baselambexpectedbenefit <- baselambeweprice*sheepshare[i,9]+((baselambperanimal/2)/1.05)+(0/(1.05^2)) callambexpectedbenefit <- baselambeweprice*sheepshare[i,9]+((callambperanimal/2)/1.05)+(0/(1.05^2)) baselambvalueofbreedingremoved <- c(0) callambvalueofbreedingremoved <- -((((baselambinvlactating*animalremoval[i,26])+(baselambinvgestating*animalremoval[i,27])+(baselambinvbreeding*animalremoval[i,28])+(baselambinvrams*animalremoval[i,31]))*140+(baselambinvreplacement*ewesreplacement*105))*(baselambexpectedbenefit/100))/1000 ### ewes replacement baselambvalueofbreeding <- ((baselambexpectedbenefit/100)*(baselambinvlactating+baselambinvgestating+baselambinvbreeding+baselambinvpostweaning+baselambinvrams)*baselambliveslaughter)/1000 callambvalueofbreeding <- ((callambexpectedbenefit/100)*(callambinvlactating+callambinvgestating+callambinvbreeding+callambinvpostweaning+callambinvrams)*callambliveslaughter)/1000 #Milk basemilkpopulation <- milkgen[i,2] calmilkpopulation <- milkgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,6]) basemilkcon <- milkgen[i,3] calmilkcon <- milkgen[i,3]*(1+milkconsumption) basemilkpercap <- milkgen[i,1] calmilkpercap <- calmilkcon/calmilkpopulation*1000 basemilkproduction <- milkgen[i,4] calmilkproduction <- milkgen[i,4]*(1+milkoutput) basemilkimports <- milkgen[i,5] calmilkimports <- milkgen[i,5]*(1+milkimports) basemilkexports <- milkgen[i,6] calmilkexports <- milkgen[i,6]*(1+milkexports) basemilkbstocks <- milkgen[i,7] calmilkbstocks <- milkgen[i,7] *(1+lagged[35,1]) basemilkfarmer <- milkgen[i,9] calmilkfarmer <- milkgen[i,9]*valuesmat[5,i] basemilkretail <- milkgen[i,10] calmilkretail <- milkgen[i,10]*(1+valuesmat[5,i]) basemilknetremoval <- milkgen[i,11] calmilknetremoval <- milkgen[i,11]*(1+commoditypolicy[i,16]) basemilkmarketing <- milkgen[i,12] calmilkmarketing <- milkgen[i,12]*(1+milkconsumption) basemilkuse <- milkgen[i,13] calmilkuse <- milkgen[i,13]*(1+milkconsumption) basemilkestocks <- milkgen[i,8] calmilkestocks <- calmilkproduction+calmilkimports+calmilkbstocks-calmilkmarketing-calmilknetremoval basemilkchokepricecalculated <- (basemilkretail/100)+((0-basemilkcon)/(retailelasticity[8,8]*((basemilkcon)/(basemilkretail/100)))) calmilkchokepricecalculated <- (basemilkretail/100)+((0-basemilkcon)/(retailelasticity[8,8]*((basemilkcon)/(basemilkretail/100)))) basemilkconstant <- (basemilkcon)/((basemilkretail/100)^retailelasticity[8,8]) calmilkconstant <- (basemilkcon)/((basemilkretail/100)^retailelasticity[8,8]) basemilkconsurpluspercapita <- basemilkconstant*(((basemilkchokepricecalculated^(retailelasticity[8,8]+1))/(retailelasticity[8,8]+1))-(((basemilkretail/100)^(retailelasticity[8,8]+1))/(retailelasticity[8,8]+1))) calmilkconsurpluspercapita <- basemilkconstant*(((basemilkchokepricecalculated^(retailelasticity[8,8]+1))/(retailelasticity[8,8]+1))-(((calmilkretail/100)^(retailelasticity[8,8]+1))/(retailelasticity[8,8]+1))) basemilkpopnotconsuming <- c(0) calmilkpopnotconsuming <- basemilkpopulation - calmilkpopulation basemilkconsurplusconsumingpop <- basemilkconsurpluspercapita*basemilkpopulation calmilkconsurplusconsumingpop <- calmilkconsurpluspercapita*calmilkpopulation basemilksconsurplusforegone <- basemilkconsurpluspercapita*basemilkpopnotconsuming calmilkconsurplusforegone <- calmilkconsurpluspercapita*calmilkpopnotconsuming basemilkconexpenditurepercapita <- (basemilkretail*basemilkcon)/100 calmilkconexpenditurepercapita <- (calmilkretail*calmilkcon)/100 basemilkconexpendituretotal <- basemilkconexpenditurepercapita*basemilkpopulation calmilkconexpendituretotal <- calmilkconexpenditurepercapita*calmilkpopulation basemilkretailproductionvalue <- basemilkproduction*(basemilkretail/100)*1000 calmilkretailproductionvalue <- calmilkproduction*(calmilkretail/100)*1000 basemilkproducerproductionvalue <- basemilkproduction*(basemilkfarmer/100)*1000 calmilkproducerproductionvalue <- calmilkproduction*(calmilkfarmer/100)*1000 basemilkexogenousinputcosts <- basemilkproducerproductionvalue*dairyshare[i,1] calmilkexogenousinputcosts <- basemilkexogenousinputcosts*(1+exogenousinput[i,6]) basemilkCGcosts <- baseCGfeedusedairycattle*baseCGyellowprice calmilkCGcosts <- calCGfeedusedairycattle*calCGyellowprice basemilkwheatcost <- basewheatfeedusedairycattle*basewheatKSprice calmilkwheatcost <- calwheatfeedusedairycattle*calwheatKSprice basemilksoymealcosts <- basesoymealfeedusedairycattle*basesoymealdecatur calmilksoymealcosts <- calsoymealfeedusedairycattle*calsoymealdecatur basemilkforagecosts <- Feedbalance[3,2]*baseForageprice callmilkforagecosts <- Feedbalance[3,2]*(1+valuesmat[27,i])*calForageprice basemilkcapitalcosts <- basemilkproducerproductionvalue-basemilkexogenousinputcosts-basemilkCGcosts-basemilkwheatcost-basemilksoymealcosts-basemilkforagecosts calmilkcapitalcosts <- calmilkproducerproductionvalue-calmilkexogenousinputcosts-calmilkCGcosts-calmilkwheatcost-calmilksoymealcosts-callmilkforagecosts #Pork baseporkpopulation <- porkgen[i,2] calporkpopulation <- porkgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,2]) baseporktotalcon <- porkgen[i,3] calporktotalcon <- porkgen[i,3]*(1+porkconsumption) baseporkpercapitacon <- porkgen[i,1] calporkpercapitacon <- calporktotalcon/calporkpopulation baseporkproduction <- porkgen[i,4] calporkproduction <- porkgen[i,4]*(1+porkoutput) baseporkimports <- porkgen[i,5] calporkimports <- porkgen[i,5]*(1+porkimports) baseporkexports <- porkgen[i,6] calporkexports <- porkgen[i,6]*(1+porkexports) baseporkbstock <- porkgen[i,7] calporkbstock <- porkgen[i,7]*(1+lagged[29,1]) baseporkestock <- porkgen[i,8] calporkestock <- calporkproduction+calporkimports+calporkbstock-calporkexports-calporktotalcon baseporkcutout <- porkgen[i,9] calporkcutout <- porkgen[i,9]*(1+valuesmat[8,i]) baseporkretailprice <- porkgen[i,10] calporkretailprice <- baseporkretailprice*(1+(porkgen[i,9]/porkgen[i,10])*valuesmat[8,i]+((porkgen[i,10]-porkgen[i,9])/porkgen[i,10]*retailwholesale[i,2])) baseporkchokepricecalculated <- (baseporkretailprice/100)+((0-baseporkpercapitacon)/(retailelasticity[2,2]*(baseporkpercapitacon/(baseporkretailprice/100)))) calporkchokepricecalculated <- (baseporkretailprice/100)+((0-baseporkpercapitacon)/(retailelasticity[2,2]*(baseporkpercapitacon/(baseporkretailprice/100)))) baseporkconstant <- baseporkpercapitacon/((baseporkretailprice/100)^retailelasticity[2,2]) calporkconstant <- baseporkpercapitacon/((baseporkretailprice/100)^retailelasticity[2,2]) baseporkconsurpluspercapita <- baseporkconstant*(((baseporkchokepricecalculated^(retailelasticity[2,2]+1))/(retailelasticity[2,2]+1))-(((baseporkretailprice/100)^(retailelasticity[2,2]+1))/(retailelasticity[2,2]+1))) calporkconsurpluspercapita <- baseporkconstant*(((baseporkchokepricecalculated^(retailelasticity[2,2]+1))/(retailelasticity[2,2]+1))-(((calporkretailprice/100)^(retailelasticity[2,2]+1))/(retailelasticity[2,2]+1))) baseporkpopnotconsuming <- c(0) calporkpopnotconsuming <- baseporkpopulation - calporkpopulation baseporkconsurplusconsumingpop <- baseporkconsurpluspercapita*baseporkpopulation calporkconsurplusconsumingpop <- calporkconsurpluspercapita*calporkpopulation baseporkconsurplusforegone <- baseporkconsurpluspercapita*baseporkpopnotconsuming calporkconsurplusforegone <- calporkconsurpluspercapita*calporkpopnotconsuming baseporkconexpenditurepercapita <- (baseporkretailprice/100)*baseporkpercapitacon calporkconexpenditurepercapita <- (calporkretailprice/100)*calporkpercapitacon baseporkconexpendituretotal <- baseporkconexpenditurepercapita*baseporkpopulation calporkconexpendituretotal <- calporkconexpenditurepercapita*calporkpopulation baseporkretailproductionvalue <- baseporkproduction*(baseporkretailprice/100)*1.1998 calporkretailproductionvalue <- calporkproduction*(calporkretailprice/100)*1.1998 baseporkproducerproductionvalue <- baseporkproduction*(baseporkcutout/100)*1.1998 calporkproducerproductionvalue <- calporkproduction*(calporkcutout/100)*1.1998 baseporkexogenousinputcosts <- baseporkproducerproductionvalue*porkshare[i,1] calporkexogenousinputcosts <- baseporkexogenousinputcosts*(1+exogenousinput[i,2]) baseporkanimalcosts <- ((basehogcarcass/100)*basehogtotal*basehogcommliveslaughter)/1000 calporkanimalcosts <- ((calhogcarcass/100)*calhogtotal*calhogcommliveslaughter)/1000 baseporkcapitalcosts <- baseporkproducerproductionvalue - baseporkexogenousinputcosts - baseporkanimalcosts calporkcapitalcosts <- calporkproducerproductionvalue - calporkexogenousinputcosts - calporkanimalcosts #Lamb meat baselambmeatpopulation <- sheeplambmeatgen[i,2] callambmeatpopulation <- sheeplambmeatgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,4]) baselambmeattotalcon <- sheeplambmeatgen[i,3] callambmeattotalcon <- sheeplambmeatgen[i,3]*(1+lambsheepmeatconsumption) baselambmeatpercapitacon <- sheeplambmeatgen[i,1] callambmeatpercapitacon <- callambmeattotalcon/callambmeatpopulation baselambmeatproduction <- sheeplambmeatgen[i,4] callambmeatproduction <- sheeplambmeatgen[i,4]*(1+lambsheepmeatoutput) baselambmeatimports <- sheeplambmeatgen[i,5] callambmeatimports <- sheeplambmeatgen[i,5]*(1+lambsheepmeatimports) baselambmeatexports <- sheeplambmeatgen[i,6] callambmeatexports <- sheeplambmeatgen[i,6]*(1+lambsheepmeatexports) baselambmeatbstocks <- sheeplambmeatgen[i,7] callambmeatbstocks <- sheeplambmeatgen[i,7] *(1+lagged[31,1]) baselambmeatestocks <- sheeplambmeatgen[i,8] callambmeatestocks <- callambmeatproduction+callambmeatimports+callambmeatbstocks-callambmeatexports-callambmeattotalcon baselambmeatcutout <- sheeplambmeatgen[i,9] callambmeatcutout <- sheeplambmeatgen[i,9]*valuesmat[15,i] baselambmeatretail <- sheeplambmeatgen[i,10] callambmeatretail <- sheeplambmeatgen[i,10]*(1+((sheeplambmeatgen[i,9]/sheeplambmeatgen[i,10]*100)*valuesmat[15,i]+((sheeplambmeatgen[i,10]*100-sheeplambmeatgen[i,9])/sheeplambmeatgen[i,10]*100)*retailwholesale[i,4])) baselambmeatchokepricecalculated <- (baselambmeatretail)+((0-baselambmeatpercapitacon)/(retailelasticity[4,4]*(baselambmeatpercapitacon/baselambmeatretail))) callambmeatchokepricecalculated <- (baselambmeatretail)+((0-baselambmeatpercapitacon)/(retailelasticity[4,4]*(baselambmeatpercapitacon/baselambmeatretail))) baselambmeatconstant <- baselambmeatretail/((baselambmeatretail)^retailelasticity[4,4]) callambmeatconstant <- baselambmeatretail/((baselambmeatretail)^retailelasticity[4,4]) baselambmeatconsurpluspercapita <- baselambmeatconstant*(((baselambmeatchokepricecalculated^(retailelasticity[4,4]+1))/(retailelasticity[4,4]+1))-(((baselambmeatretail)^(retailelasticity[4,4]+1))/(retailelasticity[4,4]+1))) callambmeatconsurpluspercapita <- baselambmeatconstant*(((baselambmeatchokepricecalculated^(retailelasticity[4,4]+1))/(retailelasticity[4,4]+1))-(((callambmeatretail)^(retailelasticity[4,4]+1))/(retailelasticity[4,4]+1))) baselambmeatpopnotconsuming <- c(0) callambmeatpopnotconsuming <- baselambmeatpopulation - callambmeatpopulation baselambmeatconsurplusconsumingpop <- baselambmeatconsurpluspercapita*baselambmeatpopulation callambmeatconsurplusconsumingpop <- callambmeatconsurpluspercapita*callambmeatpopulation baselambmeatconsurplusforegone <- baselambmeatconsurpluspercapita*baselambmeatpopnotconsuming callambmeatconsurplusforegone <- callambmeatconsurpluspercapita*callambmeatpopnotconsuming baselambmeatconexpenditurepercapita <- (baselambmeatretail*baselambmeatpercapitacon) callambmeatconexpenditurepercapita <- (callambmeatretail*callambmeatpercapitacon) baselambmeatconexpendituretotal <- baselambmeatconexpenditurepercapita*baselambmeatpopulation callambmeatconexpendituretotal <- callambmeatconexpenditurepercapita*callambmeatpopulation baselambmeatretailproductionvalue <- baselambmeatproduction*(baselambmeatretail)*0.5717 callambmeatretailproductionvalue <- callambmeatproduction*(callambmeatretail)*0.5717 baselambmeatproducerproductionvalue <- baselambmeatproduction*(baselambmeatcutout/100)*0.5717 callambmeatproducerproductionvalue <- callambmeatproduction*(callambmeatcutout/100)*0.5717 baselambmeatexogenousinputcosts <- baselambmeatproducerproductionvalue*sheeplambmeatshare[i,1] callambmeatexogenousinputcosts <- baseeggsexogenousinputcosts*(1+exogenousinput[i,3]) baselambmeatanimalcosts <- ((baselambpriceslaughter/100)*baselambslaughter*baselambliveslaughter)/1000 callambmeatanimalcosts <- ((callambpriceslaughter/100)*callambslaughter*callambliveslaughter)/1000 baselambmeatcapitalcosts <- baselambmeatproducerproductionvalue - baselambmeatexogenousinputcosts - baselambmeatanimalcosts callambmeatcapitalcosts <- callambmeatproducerproductionvalue - callambmeatexogenousinputcosts - callambmeatanimalcosts #Poultry Meat basepoultrymeatpopulation <- poultrymeatgen[i,2] calpoultrymeatpopulation <- poultrymeatgen[i,2]*(1+uspopulation[i,1]+consumerfear[i,3]) basepoultrymeattotalcon <- poultrymeatgen[i,3] calpoultrymeattotalcon <- poultrymeatgen[i,3]*(1+poultrymeatconsumption) basepoultrymeatpercapitacon <- poultrymeatgen[i,1] calpoultrymeatpercapitacon <- calpoultrymeattotalcon/calpoultrymeatpopulation basepoultrymeatproduction <- poultrymeatgen[i,4] calpoultrymeatproduction <- poultrymeatgen[i,4]*(1+poultrymeatoutput) basepoultrymeatimports <- poultrymeatgen[i,5] calpoultrymeatimports <- poultrymeatgen[i,5]*(1+poultrymeatimports) basepoultrymeatexports <- poultrymeatgen[i,6] calpoultrymeatexports <- poultrymeatgen[i,6]*(1+poultrymeatexports) basepoultrymeatbstock <- poultrymeatgen[i,7] calpoultrymeatbstock <- poultrymeatgen[i,7]*(1+lagged[30,1]) basepoultrymeatestock <- poultrymeatgen[i,8] calpoultrymeatestock <- calpoultrymeatproduction+calpoultrymeatimports+calpoultrymeatbstock-calpoultrymeatexports-calpoultrymeattotalcon basepoultrymeat12 <- poultrymeatgen[i,9] calpoultrymeat12 <- poultrymeatgen[i,9]*(1+valuesmat[11,i]) basepoultrymeatretailprice <- poultrymeatgen[i,10] calpoultrymeatretailprice <- basepoultrymeatretailprice*(1+(poultrymeatgen[i,9]/poultrymeatgen[i,10])*valuesmat[11,i]+((poultrymeatgen[i,10]-poultrymeatgen[i,9])/poultrymeatgen[i,10]*retailwholesale[i,3])) basepoultrymeatchokepricecalculated <- (basepoultrymeatretailprice/100)+((0-basepoultrymeatpercapitacon)/(retailelasticity[3,3]*(basepoultrymeatpercapitacon/(basepoultrymeatretailprice/100)))) calpoultrymeatchokepricecalculated <- (basepoultrymeatretailprice/100)+((0-basepoultrymeatpercapitacon)/(retailelasticity[3,3]*(basepoultrymeatpercapitacon/(basepoultrymeatretailprice/100)))) basepoultrymeatconstant <- basepoultrymeatpercapitacon/((basepoultrymeatretailprice/100)^retailelasticity[3,3]) calpoultrymeatconstant <- basepoultrymeatpercapitacon/((basepoultrymeatretailprice/100)^retailelasticity[3,3]) basepoultrymeatconsurpluspercapita <- basepoultrymeatconstant*(((basepoultrymeatchokepricecalculated^(retailelasticity[3,3]+1))/(retailelasticity[3,3]+1))-(((basepoultrymeatretailprice/100)^(retailelasticity[3,3]+1))/(retailelasticity[3,3]+1))) calpoultrymeatconsurpluspercapita <- basepoultrymeatconstant*(((basepoultrymeatchokepricecalculated^(retailelasticity[3,3]+1))/(retailelasticity[3,3]+1))-(((calpoultrymeatretailprice/100)^(retailelasticity[3,3]+1))/(retailelasticity[3,3]+1))) basepoultrymeatpopnotconsuming <- c(0) calpoultrymeatpopnotconsuming <- basepoultrymeatpopulation - calpoultrymeatpopulation basepoultrymeatconsurplusconsumingpop <- basepoultrymeatconsurpluspercapita*basepoultrymeatpopulation calpoultrymeatconsurplusconsumingpop <- calpoultrymeatconsurpluspercapita*calpoultrymeatpopulation basepoultrymeatconsurplusforegone <- basepoultrymeatconsurpluspercapita*basepoultrymeatpopnotconsuming calpoultrymeatconsurplusforegone <- calpoultrymeatconsurpluspercapita*calpoultrymeatpopnotconsuming basepoultrymeatconexpenditurepercapita <- (basepoultrymeatretailprice/100)*basepoultrymeatpercapitacon calpoultrymeatconexpenditurepercapita <- (calpoultrymeatretailprice/100)*calpoultrymeatpercapitacon basepoultrymeatconexpendituretotal <- basepoultrymeatconexpenditurepercapita*basepoultrymeatpopulation calpoultrymeatconexpendituretotal <- calpoultrymeatconexpenditurepercapita*calpoultrymeatpopulation basepoultrymeatretailproductionvalue <- basepoultrymeatproduction*(basepoultrymeatretailprice/100)*0.3772 calpoultrymeatretailproductionvalue <- calpoultrymeatproduction*(calpoultrymeatretailprice/100)*0.3772 basepoultrymeatproducerproductionvalue <- basepoultrymeatproduction*(basepoultrymeat12/100)*0.3772 calpoultrymeatproducerproductionvalue <- calpoultrymeatproduction*(calpoultrymeat12/100)*0.3772 basepoultrymeatexogenousinputcosts <- basepoultrymeatproducerproductionvalue*poultrymeatshare[i,1] calpoultrymeatexogenousinputcosts <- basepoultrymeatexogenousinputcosts*(1+exogenousinput[i,4]) basepoultrymeatCGcosts <- baseCGfeedusebirds*baseCGyellowprice calpoultrymeatCGcosts <- calCGfeedusebirds*calCGyellowprice basepoultrymeatwheatcost <- basewheatfeedusebirds*basewheatKSprice calpoultrymeatwheatcost <- calwheatfeedusebirds*calwheatKSprice basepoultrymeatsoymealcosts <- basesoymealfeedusebirds*basesoymealdecatur calpoultrymeatsoymealcosts <- calsoymealfeedusebirds*calsoymealdecatur basepoultrymeattcapitalcosts <- basepoultrymeatproducerproductionvalue-basepoultrymeatexogenousinputcosts-basepoultrymeatCGcosts-basepoultrymeatwheatcost-basepoultrymeatsoymealcosts calpoultrymeattcapitalcosts <- calpoultrymeatproducerproductionvalue-calpoultrymeatexogenousinputcosts-calpoultrymeatCGcosts-calpoultrymeatwheatcost-calpoultrymeatsoymealcosts valuesmat2[i, 1] <- beefoutput valuesmat2[i, 2] <- porkoutput valuesmat2[i, 3] <- poultrymeatoutput valuesmat2[i, 4] <- lambsheepmeatoutput valuesmat2[i, 5] <- milkoutput valuesmat2[i, 6] <- eggsoutput valuesmat2[i, 7] <- beefconsumption valuesmat2[i, 8] <- porkconsumption valuesmat2[i, 9] <- poultrymeatconsumption valuesmat2[i, 10] <- lambsheepmeatconsumption valuesmat2[i, 11] <- milkconsumption valuesmat2[i, 12] <- eggconsumption valuesmat2[i, 13] <- beefimports valuesmat2[i, 14] <- porkimports valuesmat2[i, 15] <- poultrymeatimports valuesmat2[i, 16] <- lambsheepmeatimports valuesmat2[i, 17] <- milkimports valuesmat2[i, 18] <- eggsimports valuesmat2[i, 19] <- beefexports valuesmat2[i, 20] <- porkexports valuesmat2[i, 21] <- lambsheepmeatexports valuesmat2[i, 22] <- milkexports valuesmat2[i, 23] <- eggsexports valuesmat2[i, 24] <- beefcattleimportsimmediate valuesmat2[i, 25] <- beefcattleimportsnot valuesmat2[i, 26] <- dairycattleimports valuesmat2[i, 27] <- hogsimportsimmediate valuesmat2[i, 28] <- hogsimportsnot valuesmat2[i, 29] <- lambsheepimports valuesmat2[i, 30] <- beefcattleinventory valuesmat2[i, 31] <- dairycattleinventory valuesmat2[i, 32] <- lambsheepinventory valuesmat2[i, 33] <- coarsegrainstotal valuesmat2[i, 34] <- soybeanmealtotal valuesmat2[i, 35] <- wheattotal valuesmat2[i, 36] <- foragetotal valuesmat2[i, 37] <- feedgrainsproduction valuesmat2[i, 38] <- riceproduction valuesmat2[i, 39] <- soybeansproduction valuesmat2[i, 40] <- wheatproduction valuesmat2[i, 41] <- feedgrainsimports valuesmat2[i, 42] <- feedgrainsexports valuesmat2[i, 43] <- riceexports valuesmat2[i, 44] <- soybeansexports valuesmat2[i, 45] <- wheatexports valuesmat2[i, 46] <- feedgrainsnonfeeduse valuesmat2[i, 47] <- soybeansnonfeeduse valuesmat2[i, 48] <- ricenonfeeduse valuesmat2[i, 49] <- wheatnonfeeduse valuesmat2[i, 50] <- riceendingstocks valuesmat2[i, 51] <- soybeansendingstocks valuesmat2[i, 52] <- wheatendingstocks valuesmat2[i, 53] <- forageendingstocks valuesmat2[i, 54] <- soymealexports valuesmat2[i, 55] <- soyoilexports valuesmat2[i, 56] <- soyoilotheruse valuesmat2[i, 57] <- coarsebasedirectpayments valuesmat2[i, 58] <- coarsebaseloanrate valuesmat2[i, 59] <- coarsebasetargetprice valuesmat2[i, 60] <- coarsebasemarketloss valuesmat2[i, 61] <- coarsebasefarmprice valuesmat2[i, 62] <- coarsebaseLDPcalculated valuesmat2[i, 63] <- coarsebaseLDPtest valuesmat2[i, 64] <- coarsebaseLDPactualpaid valuesmat2[i, 65] <- coarsebaseCCPcalculated valuesmat2[i, 66] <- coarsebaseCCPtest valuesmat2[i, 67] <- coarsebaseCCPactualpaid valuesmat2[i, 68] <- coarsebasegovernmentpayments valuesmat2[i, 69] <- milkbaseremovals valuesmat2[i, 70] <- milknewremovals valuesmat2[i, 71] <- coarsenewdirectpayments valuesmat2[i, 72] <- coarsenewloanrate valuesmat2[i, 73] <- coarsenewtargetprice valuesmat2[i, 74] <- coarsenewmarketloss valuesmat2[i, 75] <- coarsenewfarmprice valuesmat2[i, 76] <- coarsenewLDPcalculated valuesmat2[i, 77] <- coarsenewLDPtest valuesmat2[i, 78] <- coarsenewLDPactualpaid valuesmat2[i, 79] <- coarsenewCCPcalculated valuesmat2[i, 80] <- coarsenewCCPtest valuesmat2[i, 81] <- coarsenewCCPactualpaid valuesmat2[i, 82] <- coarsenewgovernmentpayments valuesmat2[i, 83] <- soybeansbasedirectpayments valuesmat2[i, 84] <- soybeansbaseloanrate valuesmat2[i, 85] <- soybeansbasetargetprice valuesmat2[i, 86] <- soybeansbasemarketloss valuesmat2[i, 87] <- soybeansbasefarmprice valuesmat2[i, 88] <- soybeansbaseLDPcalculated valuesmat2[i, 89] <- soybeansbaseLDPtest valuesmat2[i, 90] <- soybeansbaseLDPactualpaid valuesmat2[i, 91] <- soybeansbaseCCPcalculated valuesmat2[i, 92] <- soybeansbaseCCPtest valuesmat2[i, 93] <- soybeansbaseCCPactualpaid valuesmat2[i, 94] <- soybeansbasegovernmentpayments valuesmat2[i, 95] <- soybeansnewdirectpayments valuesmat2[i, 96] <- soybeansnewloanrate valuesmat2[i, 97] <- soybeansnewtargetprice valuesmat2[i, 98] <- soybeansnewmarketloss valuesmat2[i, 99] <- soybeansnewfarmprice valuesmat2[i, 100] <- soybeansnewLDPcalculated valuesmat2[i, 101] <- soybeansnewLDPtest valuesmat2[i, 102] <- soybeansnewLDPactualpaid valuesmat2[i, 103] <- soybeansnewCCPcalculated valuesmat2[i, 104] <- soybeansnewCCPtest valuesmat2[i, 105] <- soybeansnewCCPactualpaid valuesmat2[i, 106] <- soybeansnewgovernmentpayments valuesmat2[i, 107] <- wheatbasedirectpayments valuesmat2[i, 108] <- wheatbaseloanrate valuesmat2[i, 109] <- wheatbasetargetprice valuesmat2[i, 110] <- wheatbasemarketloss valuesmat2[i, 111] <- wheatbasefarmprice valuesmat2[i, 112] <- wheatbaseLDPcalculated valuesmat2[i, 113] <- wheatbaseLDPtest valuesmat2[i, 114] <- wheatbaseLDPactualpaid valuesmat2[i, 115] <- wheatbaseCCPcalculated valuesmat2[i, 116] <- wheatbaseCCPtest valuesmat2[i, 117] <- wheatbaseCCPactualpaid valuesmat2[i, 118] <- wheatbasegovernmentpayments valuesmat2[i, 119] <- wheatnewdirectpayments valuesmat2[i, 120] <- wheatnewloanrate valuesmat2[i, 121] <- wheatnewtargetprice valuesmat2[i, 122] <- wheatnewmarketloss valuesmat2[i, 123] <- wheatnewfarmprice valuesmat2[i, 124] <- wheatnewLDPcalculated valuesmat2[i, 125] <- wheatnewLDPtest valuesmat2[i, 126] <- wheatnewLDPactualpaid valuesmat2[i, 127] <- wheatnewCCPcalculated valuesmat2[i, 128] <- wheatnewCCPtest valuesmat2[i, 129] <- wheatnewCCPactualpaid valuesmat2[i, 130] <- wheatnewgovernmentpayments valuesmat2[i, 141] <- ricebasedirectpayments valuesmat2[i, 142] <- ricebaseloanrate valuesmat2[i, 143] <- ricebasetargetprice valuesmat2[i, 144] <- ricebasemarketloss valuesmat2[i, 145] <- ricebasefarmprice valuesmat2[i, 146] <- ricebaseLDPcalculated valuesmat2[i, 147] <- ricebaseLDPtest valuesmat2[i, 148] <- ricebaseLDPactualpaid valuesmat2[i, 149] <- ricebaseCCPcalculated valuesmat2[i, 150] <- ricebaseCCPtest valuesmat2[i, 161] <- ricebaseCCPactualpaid valuesmat2[i, 162] <- ricebasegovernmentpayments valuesmat2[i, 163] <- ricenewdirectpayments valuesmat2[i, 164] <- ricenewloanrate valuesmat2[i, 165] <- ricenewtargetprice valuesmat2[i, 166] <- ricenewmarketloss valuesmat2[i, 167] <- ricenewfarmprice valuesmat2[i, 168] <- ricenewLDPcalculated valuesmat2[i, 169] <- ricenewLDPtest valuesmat2[i, 170] <- ricenewLDPactualpaid valuesmat2[i, 171] <- ricenewCCPcalculated valuesmat2[i, 172] <- ricenewCCPtest valuesmat2[i, 173] <- ricenewCCPactualpaid valuesmat2[i, 174] <- ricenewgovernmentpayments valuesmat2[i, 175] <- coarsebasedirectpayments valuesmat2[i, 176] <- coarsebaseacredirectpayments09 valuesmat2[i, 177] <- coarsebaseacreLDP09 valuesmat2[i, 178] <- coarsebasearceMax09 valuesmat2[i, 179] <- coarsebasearcetestupper09 valuesmat2[i, 180] <- coarsebasearcetestlower09 valuesmat2[i, 181] <- coarsebasearcepayment09 valuesmat2[i, 182] <- coarsebasearcepayment109 valuesmat2[i, 183] <- coarsebasearcetotalacreprogram09 valuesmat2[i, 184] <- coarsebaseacredirectpayments10 valuesmat2[i, 185] <- coarsebaseacreLDP10 valuesmat2[i, 186] <- coarsebasearceMax10 valuesmat2[i, 187] <- coarsebasearcetestupper10 valuesmat2[i, 188] <- coarsebasearcetestlower10 valuesmat2[i, 199] <- coarsebasearcepayment10 valuesmat2[i, 200] <- coarsebasearcepayment110 valuesmat2[i, 201] <- coarsebasearcetotalacreprogram10 valuesmat2[i, 202] <- coarsebaseacredirectpayments11 valuesmat2[i, 203] <- coarsebaseacreLDP11 valuesmat2[i, 204] <- coarsebasearceMax11 valuesmat2[i, 205] <- coarsebasearcetestupper11 valuesmat2[i, 206] <- coarsebasearcetestlower11 valuesmat2[i, 207] <- coarsebasearcepayment11 valuesmat2[i, 208] <- coarsebasearcepayment111 valuesmat2[i, 209] <- coarsebasearcetotalacreprogram11 valuesmat2[i, 210] <- coarsebaseacredirectpayments12 valuesmat2[i, 211] <- coarsebaseacreLDP12 valuesmat2[i, 212] <- coarsebasearceMax12 valuesmat2[i, 213] <- coarsebasearcetestupper12 valuesmat2[i, 214] <- coarsebasearcetestlower12 valuesmat2[i, 215] <- coarsebasearcepayment12 valuesmat2[i, 216] <- coarsebasearcepayment112 valuesmat2[i, 217] <- coarsebasearcetotalacreprogram12 valuesmat2[i, 218] <- coarsebaseacredirectpayments13 valuesmat2[i, 219] <- coarsebaseacreLDP13 valuesmat2[i, 220] <- coarsebasearceMax13 valuesmat2[i, 221] <- coarsebasearcetestupper13 valuesmat2[i, 222] <- coarsebasearcetestlower13 valuesmat2[i, 223] <- coarsebasearcepayment13 valuesmat2[i, 224] <- coarsebasearcepayment113 valuesmat2[i, 225] <- coarsebasearcetotalacreprogram13 valuesmat2[i, 226] <- coarsebaseacredirectpayments14 valuesmat2[i, 227] <- coarsebaseacreLDP14 valuesmat2[i, 228] <- coarsebasearceMax14 valuesmat2[i, 229] <- coarsebasearcetestupper14 valuesmat2[i, 230] <- coarsebasearcetestlower14 valuesmat2[i, 231] <- coarsebasearcepayment14 valuesmat2[i, 232] <- coarsebasearcepayment114 valuesmat2[i, 233] <- coarsebasearcetotalacreprogram14 valuesmat2[i, 234] <- coarsebaseacredirectpayments15 valuesmat2[i, 235] <- coarsebaseacreLDP15 valuesmat2[i, 236] <- coarsebasearceMax15 valuesmat2[i, 237] <- coarsebasearcetestupper15 valuesmat2[i, 238] <- coarsebasearcetestlower15 valuesmat2[i, 239] <- coarsebasearcepayment15 valuesmat2[i, 240] <- coarsebasearcepayment115 valuesmat2[i, 241] <- coarsebasearcetotalacreprogram15 valuesmat2[i, 242] <- coarsebaseacredirectpayments16 valuesmat2[i, 243] <- coarsebaseacreLDP16 valuesmat2[i, 244] <- coarsebasearceMax16 valuesmat2[i, 245] <- coarsebasearcetestupper16 valuesmat2[i, 246] <- coarsebasearcetestlower16 valuesmat2[i, 247] <- coarsebasearcepayment16 valuesmat2[i, 248] <- coarsebasearcepayment116 valuesmat2[i, 249] <- coarsebasearcetotalacreprogram16 valuesmat2[i, 250] <- coarsebaseacredirectpayments17 valuesmat2[i, 251] <- coarsebaseacreLDP17 valuesmat2[i, 252] <- coarsebasearceMax17 valuesmat2[i, 253] <- coarsebasearcetestupper17 valuesmat2[i, 254] <- coarsebasearcetestlower17 valuesmat2[i, 255] <- coarsebasearcepayment17 valuesmat2[i, 256] <- coarsebasearcepayment117 valuesmat2[i, 257] <- coarsebasearcetotalacreprogram17 valuesmat2[i, 258] <- coarsebaseacredirectpayments18 valuesmat2[i, 259] <- coarsebaseacreLDP18 valuesmat2[i, 260] <- coarsebasearceMax18 valuesmat2[i, 261] <- coarsebasearcetestupper18 valuesmat2[i, 262] <- coarsebasearcetestlower18 valuesmat2[i, 263] <- coarsebasearcepayment18 valuesmat2[i, 264] <- coarsebasearcepayment118 valuesmat2[i, 265] <- coarsebasearcetotalacreprogram18 valuesmat2[i, 266] <- coarsenewacredirectpayments valuesmat2[i, 267] <- coarsenewacredirectpayments09 valuesmat2[i, 268] <- coarsenewacreLDP09 valuesmat2[i, 269] <- coarsenewarceMax09 valuesmat2[i, 270] <- coarsenewarcetestupper09 valuesmat2[i, 271] <- coarsenewarcetestlower09 valuesmat2[i, 272] <- coarsenewarcepayment09 valuesmat2[i, 273] <- coarsenewarcepayment109 valuesmat2[i, 274] <- coarsenewarcetotalacreprogram09 valuesmat2[i, 275] <- coarsenewacredirectpayments10 valuesmat2[i, 276] <- coarsenewacreLDP10 valuesmat2[i, 277] <- coarsenewarceMax10 valuesmat2[i, 278] <- coarsenewarcetestupper10 valuesmat2[i, 279] <- coarsenewarcetestlower10 valuesmat2[i, 280] <- coarsenewarcepayment10 valuesmat2[i, 281] <- coarsenewarcepayment110 valuesmat2[i, 282] <- coarsenewarcetotalacreprogram10 valuesmat2[i, 283] <- coarsenewacredirectpayments11 valuesmat2[i, 284] <- coarsenewacreLDP11 valuesmat2[i, 285] <- coarsenewarceMax11 valuesmat2[i, 286] <- coarsenewarcetestupper11 valuesmat2[i, 287] <- coarsenewarcetestlower11 valuesmat2[i, 288] <- coarsenewarcepayment11 valuesmat2[i, 289] <- coarsenewarcepayment111 valuesmat2[i, 290] <- coarsenewarcetotalacreprogram11 valuesmat2[i, 291] <- coarsenewacredirectpayments12 valuesmat2[i, 292] <- coarsenewacreLDP12 valuesmat2[i, 293] <- coarsenewarceMax12 valuesmat2[i, 294] <- coarsenewarcetestupper12 valuesmat2[i, 295] <- coarsenewarcetestlower12 valuesmat2[i, 296] <- coarsenewarcepayment12 valuesmat2[i, 297] <- coarsenewarcepayment112 valuesmat2[i, 298] <- coarsenewarcetotalacreprogram12 valuesmat2[i, 299] <- coarsenewacredirectpayments13 valuesmat2[i, 300] <- coarsenewacreLDP13 valuesmat2[i, 301] <- coarsenewarceMax13 valuesmat2[i, 302] <- coarsenewarcetestupper13 valuesmat2[i, 303] <- coarsenewarcetestlower13 valuesmat2[i, 304] <- coarsenewarcepayment13 valuesmat2[i, 305] <- coarsenewarcepayment113 valuesmat2[i, 306] <- coarsenewarcetotalacreprogram13 valuesmat2[i, 307] <- coarsenewacredirectpayments14 valuesmat2[i, 308] <- coarsenewacreLDP14 valuesmat2[i, 309] <- coarsenewarceMax14 valuesmat2[i, 310] <- coarsenewarcetestupper14 valuesmat2[i, 311] <- coarsenewarcetestlower14 valuesmat2[i, 312] <- coarsenewarcepayment14 valuesmat2[i, 313] <- coarsenewarcepayment114 valuesmat2[i, 314] <- coarsenewarcetotalacreprogram14 valuesmat2[i, 315] <- coarsenewacredirectpayments15 valuesmat2[i, 316] <- coarsenewacreLDP15 valuesmat2[i, 317] <- coarsenewarceMax15 valuesmat2[i, 318] <- coarsenewarcetestupper15 valuesmat2[i, 319] <- coarsenewarcetestlower15 valuesmat2[i, 320] <- coarsenewarcepayment15 valuesmat2[i, 321] <- coarsenewarcepayment115 valuesmat2[i, 322] <- coarsenewarcetotalacreprogram15 valuesmat2[i, 323] <- coarsenewacredirectpayments16 valuesmat2[i, 324] <- coarsenewacreLDP16 valuesmat2[i, 325] <- coarsenewarceMax16 valuesmat2[i, 326] <- coarsenewarcetestupper16 valuesmat2[i, 327] <- coarsenewarcetestlower16 valuesmat2[i, 328] <- coarsenewarcepayment16 valuesmat2[i, 329] <- coarsenewarcepayment116 valuesmat2[i, 330] <- coarsenewarcetotalacreprogram16 valuesmat2[i, 331] <- coarsenewacredirectpayments17 valuesmat2[i, 332] <- coarsenewacreLDP17 valuesmat2[i, 333] <- coarsenewarceMax17 valuesmat2[i, 334] <- coarsenewarcetestupper17 valuesmat2[i, 335] <- coarsenewarcetestlower17 valuesmat2[i, 336] <- coarsenewarcepayment17 valuesmat2[i, 337] <- coarsenewarcepayment117 valuesmat2[i, 338] <- coarsenewarcetotalacreprogram17 valuesmat2[i, 339] <- coarsenewacredirectpayments18 valuesmat2[i, 340] <- coarsenewacreLDP18 valuesmat2[i, 341] <- coarsenewarceMax18 valuesmat2[i, 342] <- coarsenewarcetestupper18 valuesmat2[i, 343] <- coarsenewarcetestlower18 valuesmat2[i, 344] <- coarsenewarcepayment18 valuesmat2[i, 345] <- coarsenewarcepayment118 valuesmat2[i, 346] <- coarsenewarcetotalacreprogram18 valuesmat2[i, 347] <- soybeansbasedirectpayments valuesmat2[i, 348] <- soybeansbaseacredirectpayments09 valuesmat2[i, 349] <- soybeansbaseacreLDP09 valuesmat2[i, 350] <- soybeansbasearceMax09 valuesmat2[i, 351] <- soybeansbasearcetestupper09 valuesmat2[i, 352] <- soybeansbasearcetestlower09 valuesmat2[i, 353] <- soybeansbasearcepayment09 valuesmat2[i, 354] <- soybeansbasearcepayment109 valuesmat2[i, 355] <- soybeansbasearcetotalacreprogram09 valuesmat2[i, 356] <- soybeansbaseacredirectpayments10 valuesmat2[i, 357] <- soybeansbaseacreLDP10 valuesmat2[i, 358] <- soybeansbasearceMax10 valuesmat2[i, 359] <- soybeansbasearcetestupper10 valuesmat2[i, 360] <- soybeansbasearcetestlower10 valuesmat2[i, 361] <- soybeansbasearcepayment10 valuesmat2[i, 362] <- soybeansbasearcepayment110 valuesmat2[i, 363] <- soybeansbasearcetotalacreprogram10 valuesmat2[i, 364] <- soybeansbaseacredirectpayments11 valuesmat2[i, 365] <- soybeansbaseacreLDP11 valuesmat2[i, 366] <- soybeansbasearceMax11 valuesmat2[i, 367] <- soybeansbasearcetestupper11 valuesmat2[i, 368] <- soybeansbasearcetestlower11 valuesmat2[i, 369] <- soybeansbasearcepayment11 valuesmat2[i, 370] <- soybeansbasearcepayment111 valuesmat2[i, 361] <- soybeansbasearcetotalacreprogram11 valuesmat2[i, 362] <- soybeansbaseacredirectpayments12 valuesmat2[i, 363] <- soybeansbaseacreLDP12 valuesmat2[i, 364] <- soybeansbasearceMax12 valuesmat2[i, 365] <- soybeansbasearcetestupper12 valuesmat2[i, 366] <- soybeansbasearcetestlower12 valuesmat2[i, 367] <- soybeansbasearcepayment12 valuesmat2[i, 368] <- soybeansbasearcepayment112 valuesmat2[i, 369] <- soybeansbasearcetotalacreprogram12 valuesmat2[i, 370] <- soybeansbaseacredirectpayments13 valuesmat2[i, 371] <- soybeansbaseacreLDP13 valuesmat2[i, 372] <- soybeansbasearceMax13 valuesmat2[i, 373] <- soybeansbasearcetestupper13 valuesmat2[i, 374] <- soybeansbasearcetestlower13 valuesmat2[i, 375] <- soybeansbasearcepayment13 valuesmat2[i, 376] <- soybeansbasearcepayment113 valuesmat2[i, 377] <- soybeansbasearcetotalacreprogram13 valuesmat2[i, 378] <- soybeansbaseacredirectpayments14 valuesmat2[i, 379] <- soybeansbaseacreLDP14 valuesmat2[i, 380] <- soybeansbasearceMax14 valuesmat2[i, 381] <- soybeansbasearcetestupper14 valuesmat2[i, 382] <- soybeansbasearcetestlower14 valuesmat2[i, 383] <- soybeansbasearcepayment14 valuesmat2[i, 384] <- soybeansbasearcepayment114 valuesmat2[i, 385] <- soybeansbasearcetotalacreprogram14 valuesmat2[i, 386] <- soybeansbaseacredirectpayments15 valuesmat2[i, 387] <- soybeansbaseacreLDP15 valuesmat2[i, 388] <- soybeansbasearceMax15 valuesmat2[i, 389] <- soybeansbasearcetestupper15 valuesmat2[i, 390] <- soybeansbasearcetestlower15 valuesmat2[i, 391] <- soybeansbasearcepayment15 valuesmat2[i, 392] <- soybeansbasearcepayment115 valuesmat2[i, 393] <- soybeansbasearcetotalacreprogram15 valuesmat2[i, 394] <- soybeansbaseacredirectpayments16 valuesmat2[i, 395] <- soybeansbaseacreLDP16 valuesmat2[i, 396] <- soybeansbasearceMax16 valuesmat2[i, 397] <- soybeansbasearcetestupper16 valuesmat2[i, 398] <- soybeansbasearcetestlower16 valuesmat2[i, 399] <- soybeansbasearcepayment16 valuesmat2[i, 400] <- soybeansbasearcepayment116 valuesmat2[i, 401] <- soybeansbasearcetotalacreprogram16 valuesmat2[i, 402] <- soybeansbaseacredirectpayments17 valuesmat2[i, 403] <- soybeansbaseacreLDP17 valuesmat2[i, 404] <- soybeansbasearceMax17 valuesmat2[i, 405] <- soybeansbasearcetestupper17 valuesmat2[i, 406] <- soybeansbasearcetestlower17 valuesmat2[i, 407] <- soybeansbasearcepayment17 valuesmat2[i, 408] <- soybeansbasearcepayment117 valuesmat2[i, 409] <- soybeansbasearcetotalacreprogram17 valuesmat2[i, 410] <- soybeansbaseacredirectpayments18 valuesmat2[i, 411] <- soybeansbaseacreLDP18 valuesmat2[i, 412] <- soybeansbasearceMax18 valuesmat2[i, 413] <- soybeansbasearcetestupper18 valuesmat2[i, 414] <- soybeansbasearcetestlower18 valuesmat2[i, 415] <- soybeansbasearcepayment18 valuesmat2[i, 416] <- soybeansbasearcepayment118 valuesmat2[i, 417] <- soybeansbasearcetotalacreprogram18 valuesmat2[i, 418] <- soybeansnewdirectpayments valuesmat2[i, 419] <- soybeansnewacredirectpayments09 valuesmat2[i, 420] <- soybeansnewacreLDP09 valuesmat2[i, 421] <- soybeansnewarceMax09 valuesmat2[i, 422] <- soybeansnewarcetestupper09 valuesmat2[i, 423] <- soybeansnewarcetestlower09 valuesmat2[i, 424] <- soybeansnewarcepayment09 valuesmat2[i, 425] <- soybeansnewarcepayment109 valuesmat2[i, 426] <- soybeansnewarcetotalacreprogram09 valuesmat2[i, 427] <- soybeansnewacredirectpayments10 valuesmat2[i, 428] <- soybeansnewacreLDP10 valuesmat2[i, 429] <- soybeansnewarceMax10 valuesmat2[i, 430] <- soybeansnewarcetestupper10 valuesmat2[i, 431] <- soybeansnewarcetestlower10 valuesmat2[i, 432] <- soybeansnewarcepayment10 valuesmat2[i, 433] <- soybeansnewarcepayment110 valuesmat2[i, 434] <- soybeansnewarcetotalacreprogram10 valuesmat2[i, 435] <- soybeansnewacredirectpayments11 valuesmat2[i, 436] <- soybeansnewacreLDP11 valuesmat2[i, 437] <- soybeansnewarceMax11 valuesmat2[i, 438] <- soybeansnewarcetestupper11 valuesmat2[i, 439] <- soybeansnewarcetestlower11 valuesmat2[i, 440] <- soybeansnewarcepayment11 valuesmat2[i, 441] <- soybeansnewarcepayment111 valuesmat2[i, 442] <- soybeansnewarcetotalacreprogram11 valuesmat2[i, 443] <- soybeansnewacredirectpayments12 valuesmat2[i, 444] <- soybeansnewacreLDP12 valuesmat2[i, 445] <- soybeansnewarceMax12 valuesmat2[i, 446] <- soybeansnewarcetestupper12 valuesmat2[i, 447] <- soybeansnewarcetestlower12 valuesmat2[i, 448] <- soybeansnewarcepayment12 valuesmat2[i, 449] <- soybeansnewarcepayment112 valuesmat2[i, 450] <- soybeansnewarcetotalacreprogram12 valuesmat2[i, 451] <- soybeansnewacredirectpayments13 valuesmat2[i, 452] <- soybeansnewacreLDP13 valuesmat2[i, 453] <- soybeansnewarceMax13 valuesmat2[i, 454] <- soybeansnewarcetestupper13 valuesmat2[i, 455] <- soybeansnewarcetestlower13 valuesmat2[i, 456] <- soybeansnewarcepayment13 valuesmat2[i, 457] <- soybeansnewarcepayment113 valuesmat2[i, 458] <- soybeansnewarcetotalacreprogram13 valuesmat2[i, 459] <- soybeansnewacredirectpayments14 valuesmat2[i, 460] <- soybeansnewacreLDP14 valuesmat2[i, 461] <- soybeansnewarceMax14 valuesmat2[i, 462] <- soybeansnewarcetestupper14 valuesmat2[i, 463] <- soybeansnewarcetestlower14 valuesmat2[i, 464] <- soybeansnewarcepayment14 valuesmat2[i, 465] <- soybeansnewarcepayment114 valuesmat2[i, 466] <- soybeansnewarcetotalacreprogram14 valuesmat2[i, 467] <- soybeansnewacredirectpayments15 valuesmat2[i, 468] <- soybeansnewacreLDP15 valuesmat2[i, 469] <- soybeansnewarceMax15 valuesmat2[i, 470] <- soybeansnewarcetestupper15 valuesmat2[i, 461] <- soybeansnewarcetestlower15 valuesmat2[i, 462] <- soybeansnewarcepayment15 valuesmat2[i, 463] <- soybeansnewarcepayment115 valuesmat2[i, 464] <- soybeansnewarcetotalacreprogram15 valuesmat2[i, 465] <- soybeansnewacredirectpayments16 valuesmat2[i, 466] <- soybeansnewacreLDP16 valuesmat2[i, 467] <- soybeansnewarceMax16 valuesmat2[i, 468] <- soybeansnewarcetestupper16 valuesmat2[i, 469] <- soybeansnewarcetestlower16 valuesmat2[i, 470] <- soybeansnewarcepayment16 valuesmat2[i, 471] <- soybeansnewarcepayment116 valuesmat2[i, 472] <- soybeansnewarcetotalacreprogram16 valuesmat2[i, 473] <- soybeansnewacredirectpayments17 valuesmat2[i, 474] <- soybeansnewacreLDP17 valuesmat2[i, 475] <- soybeansnewarceMax17 valuesmat2[i, 476] <- soybeansnewarcetestupper17 valuesmat2[i, 477] <- soybeansnewarcetestlower17 valuesmat2[i, 478] <- soybeansnewarcepayment17 valuesmat2[i, 479] <- soybeansnewarcepayment117 valuesmat2[i, 480] <- soybeansnewarcetotalacreprogram17 valuesmat2[i, 481] <- soybeansnewacredirectpayments18 valuesmat2[i, 482] <- soybeansnewacreLDP18 valuesmat2[i, 483] <- soybeansnewarceMax18 valuesmat2[i, 484] <- soybeansnewarcetestupper18 valuesmat2[i, 485] <- soybeansnewarcetestlower18 valuesmat2[i, 486] <- soybeansnewarcepayment18 valuesmat2[i, 487] <- soybeansnewarcepayment118 valuesmat2[i, 488] <- soybeansnewarcetotalacreprogram18 valuesmat2[i, 489] <- wheatbasedirectpayments valuesmat2[i, 490] <- wheatbaseacredirectpayments09 valuesmat2[i, 491] <- wheatbaseacreLDP09 valuesmat2[i, 492] <- wheatbasearceMax09 valuesmat2[i, 493] <- wheatbasearcetestupper09 valuesmat2[i, 494] <- wheatbasearcetestlower09 valuesmat2[i, 495] <- wheatbasearcepayment09 valuesmat2[i, 496] <- wheatbasearcepayment109 valuesmat2[i, 497] <- wheatbasearcetotalacreprogram09 valuesmat2[i, 498] <- wheatbaseacredirectpayments10 valuesmat2[i, 499] <- wheatbaseacreLDP10 valuesmat2[i, 500] <- wheatbasearceMax10 valuesmat2[i, 501] <- wheatbasearcetestupper10 valuesmat2[i, 502] <- wheatbasearcetestlower10 valuesmat2[i, 503] <- wheatbasearcepayment10 valuesmat2[i, 504] <- wheatbasearcepayment110 valuesmat2[i, 505] <- wheatbasearcetotalacreprogram10 valuesmat2[i, 506] <- wheatbaseacredirectpayments11 valuesmat2[i, 507] <- wheatbaseacreLDP11 valuesmat2[i, 508] <- wheatbasearceMax11 valuesmat2[i, 509] <- wheatbasearcetestupper11 valuesmat2[i, 510] <- wheatbasearcetestlower11 valuesmat2[i, 511] <- wheatbasearcepayment11 valuesmat2[i, 512] <- wheatbasearcepayment111 valuesmat2[i, 513] <- wheatbasearcetotalacreprogram11 valuesmat2[i, 514] <- wheatbaseacredirectpayments12 valuesmat2[i, 515] <- wheatbaseacreLDP12 valuesmat2[i, 516] <- wheatbasearceMax12 valuesmat2[i, 517] <- wheatbasearcetestupper12 valuesmat2[i, 518] <- wheatbasearcetestlower12 valuesmat2[i, 519] <- wheatbasearcepayment12 valuesmat2[i, 520] <- wheatbasearcepayment112 valuesmat2[i, 521] <- wheatbasearcetotalacreprogram12 valuesmat2[i, 522] <- wheatbaseacredirectpayments13 valuesmat2[i, 523] <- wheatbaseacreLDP13 valuesmat2[i, 524] <- wheatbasearceMax13 valuesmat2[i, 525] <- wheatbasearcetestupper13 valuesmat2[i, 526] <- wheatbasearcetestlower13 valuesmat2[i, 527] <- wheatbasearcepayment13 valuesmat2[i, 528] <- wheatbasearcepayment113 valuesmat2[i, 529] <- wheatbasearcetotalacreprogram13 valuesmat2[i, 530] <- wheatbaseacredirectpayments14 valuesmat2[i, 531] <- wheatbaseacreLDP14 valuesmat2[i, 532] <- wheatbasearceMax14 valuesmat2[i, 533] <- wheatbasearcetestupper14 valuesmat2[i, 534] <- wheatbasearcetestlower14 valuesmat2[i, 535] <- wheatbasearcepayment14 valuesmat2[i, 536] <- wheatbasearcepayment114 valuesmat2[i, 537] <- wheatbasearcetotalacreprogram14 valuesmat2[i, 538] <- wheatbaseacredirectpayments15 valuesmat2[i, 539] <- wheatbaseacreLDP15 valuesmat2[i, 540] <- wheatbasearceMax15 valuesmat2[i, 541] <- wheatbasearcetestupper15 valuesmat2[i, 542] <- wheatbasearcetestlower15 valuesmat2[i, 543] <- wheatbasearcepayment15 valuesmat2[i, 544] <- wheatbasearcepayment115 valuesmat2[i, 545] <- wheatbasearcetotalacreprogram15 valuesmat2[i, 546] <- wheatbaseacredirectpayments16 valuesmat2[i, 547] <- wheatbaseacreLDP16 valuesmat2[i, 548] <- wheatbasearceMax16 valuesmat2[i, 549] <- wheatbasearcetestupper16 valuesmat2[i, 550] <- wheatbasearcetestlower16 valuesmat2[i, 551] <- wheatbasearcepayment16 valuesmat2[i, 552] <- wheatbasearcepayment116 valuesmat2[i, 553] <- wheatbasearcetotalacreprogram16 valuesmat2[i, 554] <- wheatbaseacredirectpayments17 valuesmat2[i, 555] <- wheatbaseacreLDP17 valuesmat2[i, 556] <- wheatbasearceMax17 valuesmat2[i, 557] <- wheatbasearcetestupper17 valuesmat2[i, 558] <- wheatbasearcetestlower17 valuesmat2[i, 559] <- wheatbasearcepayment17 valuesmat2[i, 560] <- wheatbasearcepayment117 valuesmat2[i, 561] <- wheatbasearcetotalacreprogram17 valuesmat2[i, 562] <- wheatbaseacredirectpayments18 valuesmat2[i, 563] <- wheatbaseacreLDP18 valuesmat2[i, 564] <- wheatbasearceMax18 valuesmat2[i, 565] <- wheatbasearcetestupper18 valuesmat2[i, 566] <- wheatbasearcetestlower18 valuesmat2[i, 567] <- wheatbasearcepayment18 valuesmat2[i, 568] <- wheatbasearcepayment118 valuesmat2[i, 569] <- wheatbasearcetotalacreprogram18 valuesmat2[i, 570] <- wheatnewdirectpayments valuesmat2[i, 571] <- wheatnewacredirectpayments09 valuesmat2[i, 572] <- wheatnewacreLDP09 valuesmat2[i, 573] <- wheatnewarceMax09 valuesmat2[i, 574] <- wheatnewarcetestupper09 valuesmat2[i, 575] <- wheatnewarcetestlower09 valuesmat2[i, 576] <- wheatnewarcepayment09 valuesmat2[i, 577] <- wheatnewarcepayment109 valuesmat2[i, 578] <- wheatnewarcetotalacreprogram09 valuesmat2[i, 579] <- wheatnewacredirectpayments10 valuesmat2[i, 580] <- wheatnewacreLDP10 valuesmat2[i, 581] <- wheatnewarceMax10 valuesmat2[i, 582] <- wheatnewarcetestupper10 valuesmat2[i, 583] <- wheatnewarcetestlower10 valuesmat2[i, 584] <- wheatnewarcepayment10 valuesmat2[i, 585] <- wheatnewarcepayment110 valuesmat2[i, 586] <- wheatnewarcetotalacreprogram10 valuesmat2[i, 587] <- wheatnewacredirectpayments11 valuesmat2[i, 588] <- wheatnewacreLDP11 valuesmat2[i, 589] <- wheatnewarceMax11 valuesmat2[i, 590] <- wheatnewarcetestupper11 valuesmat2[i, 591] <- wheatnewarcetestlower11 valuesmat2[i, 592] <- wheatnewarcepayment11 valuesmat2[i, 593] <- wheatnewarcepayment111 valuesmat2[i, 594] <- wheatnewarcetotalacreprogram11 valuesmat2[i, 595] <- wheatnewacredirectpayments12 valuesmat2[i, 596] <- wheatnewacreLDP12 valuesmat2[i, 597] <- wheatnewarceMax12 valuesmat2[i, 598] <- wheatnewarcetestupper12 valuesmat2[i, 599] <- wheatnewarcetestlower12 valuesmat2[i, 600] <- wheatnewarcepayment12 valuesmat2[i, 601] <- wheatnewarcepayment112 valuesmat2[i, 602] <- wheatnewarcetotalacreprogram12 valuesmat2[i, 603] <- wheatnewacredirectpayments13 valuesmat2[i, 604] <- wheatnewacreLDP13 valuesmat2[i, 605] <- wheatnewarceMax13 valuesmat2[i, 606] <- wheatnewarcetestupper13 valuesmat2[i, 607] <- wheatnewarcetestlower13 valuesmat2[i, 608] <- wheatnewarcepayment13 valuesmat2[i, 609] <- wheatnewarcepayment113 valuesmat2[i, 610] <- wheatnewarcetotalacreprogram13 valuesmat2[i, 611] <- wheatnewacredirectpayments14 valuesmat2[i, 612] <- wheatnewacreLDP14 valuesmat2[i, 613] <- wheatnewarceMax14 valuesmat2[i, 614] <- wheatnewarcetestupper14 valuesmat2[i, 615] <- wheatnewarcetestlower14 valuesmat2[i, 616] <- wheatnewarcepayment14 valuesmat2[i, 617] <- wheatnewarcepayment114 valuesmat2[i, 618] <- wheatnewarcetotalacreprogram14 valuesmat2[i, 619] <- wheatnewacredirectpayments15 valuesmat2[i, 620] <- wheatnewacreLDP15 valuesmat2[i, 621] <- wheatnewarceMax15 valuesmat2[i, 622] <- wheatnewarcetestupper15 valuesmat2[i, 623] <- wheatnewarcetestlower15 valuesmat2[i, 624] <- wheatnewarcepayment15 valuesmat2[i, 625] <- wheatnewarcepayment115 valuesmat2[i, 626] <- wheatnewarcetotalacreprogram15 valuesmat2[i, 627] <- wheatnewacredirectpayments16 valuesmat2[i, 628] <- wheatnewacreLDP16 valuesmat2[i, 629] <- wheatnewarceMax16 valuesmat2[i, 630] <- wheatnewarcetestupper16 valuesmat2[i, 631] <- wheatnewarcetestlower16 valuesmat2[i, 632] <- wheatnewarcepayment16 valuesmat2[i, 633] <- wheatnewarcepayment116 valuesmat2[i, 634] <- wheatnewarcetotalacreprogram16 valuesmat2[i, 635] <- wheatnewacredirectpayments17 valuesmat2[i, 636] <- wheatnewacreLDP17 valuesmat2[i, 637] <- wheatnewarceMax17 valuesmat2[i, 638] <- wheatnewarcetestupper17 valuesmat2[i, 639] <- wheatnewarcetestlower17 valuesmat2[i, 640] <- wheatnewarcepayment17 valuesmat2[i, 641] <- wheatnewarcepayment117 valuesmat2[i, 642] <- wheatnewarcetotalacreprogram17 valuesmat2[i, 643] <- wheatnewacredirectpayments18 valuesmat2[i, 644] <- wheatnewacreLDP18 valuesmat2[i, 645] <- wheatnewarceMax18 valuesmat2[i, 646] <- wheatnewarcetestupper18 valuesmat2[i, 647] <- wheatnewarcetestlower18 valuesmat2[i, 648] <- wheatnewarcepayment18 valuesmat2[i, 649] <- wheatnewarcepayment118 valuesmat2[i, 650] <- wheatnewarcetotalacreprogram18 valuesmat2[i, 651] <- ricebasedirectpayments valuesmat2[i, 652] <- ricebaseacredirectpayments09 valuesmat2[i, 653] <- ricebaseacreLDP09 valuesmat2[i, 654] <- ricebasearceMax09 valuesmat2[i, 655] <- ricebasearcetestupper09 valuesmat2[i, 656] <- ricebasearcetestlower09 valuesmat2[i, 657] <- ricebasearcepayment09 valuesmat2[i, 658] <- ricebasearcepayment109 valuesmat2[i, 659] <- ricebasearcetotalacreprogram09 valuesmat2[i, 660] <- ricebaseacredirectpayments10 valuesmat2[i, 661] <- ricebaseacreLDP10 valuesmat2[i, 662] <- ricebasearceMax10 valuesmat2[i, 663] <- ricebasearcetestupper10 valuesmat2[i, 664] <- ricebasearcetestlower10 valuesmat2[i, 665] <- ricebasearcepayment10 valuesmat2[i, 666] <- ricebasearcepayment110 valuesmat2[i, 667] <- ricebasearcetotalacreprogram10 valuesmat2[i, 668] <- ricebaseacredirectpayments11 valuesmat2[i, 669] <- ricebaseacreLDP11 valuesmat2[i, 670] <- ricebasearceMax11 valuesmat2[i, 671] <- ricebasearcetestupper11 valuesmat2[i, 672] <- ricebasearcetestlower11 valuesmat2[i, 673] <- ricebasearcepayment11 valuesmat2[i, 674] <- ricebasearcepayment111 valuesmat2[i, 675] <- ricebasearcetotalacreprogram11 valuesmat2[i, 676] <- ricebaseacredirectpayments12 valuesmat2[i, 677] <- ricebaseacreLDP12 valuesmat2[i, 678] <- ricebasearceMax12 valuesmat2[i, 679] <- ricebasearcetestupper12 valuesmat2[i, 680] <- ricebasearcetestlower12 valuesmat2[i, 681] <- ricebasearcepayment12 valuesmat2[i, 682] <- ricebasearcepayment112 valuesmat2[i, 683] <- ricebasearcetotalacreprogram12 valuesmat2[i, 684] <- ricebaseacredirectpayments13 valuesmat2[i, 685] <- ricebaseacreLDP13 valuesmat2[i, 686] <- ricebasearceMax13 valuesmat2[i, 687] <- ricebasearcetestupper13 valuesmat2[i, 688] <- ricebasearcetestlower13 valuesmat2[i, 689] <- ricebasearcepayment13 valuesmat2[i, 690] <- ricebasearcepayment113 valuesmat2[i, 691] <- ricebasearcetotalacreprogram13 valuesmat2[i, 692] <- ricebaseacredirectpayments14 valuesmat2[i, 693] <- ricebaseacreLDP14 valuesmat2[i, 694] <- ricebasearceMax14 valuesmat2[i, 695] <- ricebasearcetestupper14 valuesmat2[i, 696] <- ricebasearcetestlower14 valuesmat2[i, 697] <- ricebasearcepayment14 valuesmat2[i, 698] <- ricebasearcepayment114 valuesmat2[i, 699] <- ricebasearcetotalacreprogram14 valuesmat2[i, 700] <- ricebaseacredirectpayments15 valuesmat2[i, 701] <- ricebaseacreLDP15 valuesmat2[i, 702] <- ricebasearceMax15 valuesmat2[i, 703] <- ricebasearcetestupper15 valuesmat2[i, 704] <- ricebasearcetestlower15 valuesmat2[i, 705] <- ricebasearcepayment15 valuesmat2[i, 706] <- ricebasearcepayment115 valuesmat2[i, 707] <- ricebasearcetotalacreprogram15 valuesmat2[i, 708] <- ricebaseacredirectpayments16 valuesmat2[i, 709] <- ricebaseacreLDP16 valuesmat2[i, 710] <- ricebasearceMax16 valuesmat2[i, 711] <- ricebasearcetestupper16 valuesmat2[i, 712] <- ricebasearcetestlower16 valuesmat2[i, 713] <- ricebasearcepayment16 valuesmat2[i, 714] <- ricebasearcepayment116 valuesmat2[i, 715] <- ricebasearcetotalacreprogram16 valuesmat2[i, 716] <- ricebaseacredirectpayments17 valuesmat2[i, 717] <- ricebaseacreLDP17 valuesmat2[i, 718] <- ricebasearceMax17 valuesmat2[i, 719] <- ricebasearcetestupper17 valuesmat2[i, 720] <- ricebasearcetestlower17 valuesmat2[i, 721] <- ricebasearcepayment17 valuesmat2[i, 722] <- ricebasearcepayment117 valuesmat2[i, 723] <- ricebasearcetotalacreprogram17 valuesmat2[i, 724] <- ricebaseacredirectpayments18 valuesmat2[i, 725] <- ricebaseacreLDP18 valuesmat2[i, 726] <- ricebasearceMax18 valuesmat2[i, 727] <- ricebasearcetestupper18 valuesmat2[i, 728] <- ricebasearcetestlower18 valuesmat2[i, 729] <- ricebasearcepayment18 valuesmat2[i, 730] <- ricebasearcepayment118 valuesmat2[i, 731] <- ricebasearcetotalacreprogram18 valuesmat2[i, 732] <- ricenewdirectpayments valuesmat2[i, 733] <- ricenewacredirectpayments09 valuesmat2[i, 734] <- ricenewacreLDP09 valuesmat2[i, 735] <- ricenewarceMax09 valuesmat2[i, 736] <- ricenewarcetestupper09 valuesmat2[i, 737] <- ricenewarcetestlower09 valuesmat2[i, 738] <- ricenewarcepayment09 valuesmat2[i, 739] <- ricenewarcepayment109 valuesmat2[i, 740] <- ricenewarcetotalacreprogram09 valuesmat2[i, 741] <- ricenewacredirectpayments10 valuesmat2[i, 742] <- ricenewacreLDP10 valuesmat2[i, 743] <- ricenewarceMax10 valuesmat2[i, 744] <- ricenewarcetestupper10 valuesmat2[i, 745] <- ricenewarcetestlower10 valuesmat2[i, 746] <- ricenewarcepayment10 valuesmat2[i, 747] <- ricenewarcepayment110 valuesmat2[i, 748] <- ricenewarcetotalacreprogram10 valuesmat2[i, 749] <- ricenewacredirectpayments11 valuesmat2[i, 750] <- ricenewacreLDP11 valuesmat2[i, 751] <- ricenewarceMax11 valuesmat2[i, 752] <- ricenewarcetestupper11 valuesmat2[i, 753] <- ricenewarcetestlower11 valuesmat2[i, 754] <- ricenewarcepayment11 valuesmat2[i, 755] <- ricenewarcepayment111 valuesmat2[i, 756] <- ricenewarcetotalacreprogram11 valuesmat2[i, 757] <- ricenewacredirectpayments12 valuesmat2[i, 758] <- ricenewacreLDP12 valuesmat2[i, 759] <- ricenewarceMax12 valuesmat2[i, 760] <- ricenewarcetestupper12 valuesmat2[i, 761] <- ricenewarcetestlower12 valuesmat2[i, 762] <- ricenewarcepayment12 valuesmat2[i, 763] <- ricenewarcepayment112 valuesmat2[i, 764] <- ricenewarcetotalacreprogram12 valuesmat2[i, 765] <- ricenewacredirectpayments13 valuesmat2[i, 766] <- ricenewacreLDP13 valuesmat2[i, 767] <- ricenewarceMax13 valuesmat2[i, 768] <- ricenewarcetestupper13 valuesmat2[i, 769] <- ricenewarcetestupper13 valuesmat2[i, 770] <- ricenewarcetestlower13 valuesmat2[i, 771] <- ricenewarcepayment13 valuesmat2[i, 772] <- ricenewarcepayment113 valuesmat2[i, 773] <- ricenewarcetotalacreprogram13 valuesmat2[i, 774] <- ricenewacredirectpayments14 valuesmat2[i, 775] <- ricenewacreLDP14 valuesmat2[i, 776] <- ricenewarceMax14 valuesmat2[i, 777] <- ricenewarcetestupper14 valuesmat2[i, 778] <- ricenewarcetestlower14 valuesmat2[i, 779] <- ricenewarcepayment14 valuesmat2[i, 780] <- ricenewarcepayment114 valuesmat2[i, 781] <- ricenewarcetotalacreprogram14 valuesmat2[i, 782] <- ricenewacredirectpayments15 valuesmat2[i, 783] <- ricenewacreLDP15 valuesmat2[i, 784] <- ricenewarceMax15 valuesmat2[i, 785] <- ricenewarcetestupper15 valuesmat2[i, 786] <- ricenewarcetestlower15 valuesmat2[i, 787] <- ricenewarcepayment15 valuesmat2[i, 788] <- ricenewarcepayment115 valuesmat2[i, 789] <- ricenewarcetotalacreprogram15 valuesmat2[i, 790] <- ricenewacredirectpayments16 valuesmat2[i, 791] <- ricenewacreLDP16 valuesmat2[i, 792] <- ricenewarceMax16 valuesmat2[i, 793] <- ricenewarcetestupper16 valuesmat2[i, 794] <- ricenewarcetestlower16 valuesmat2[i, 795] <- ricenewarcepayment16 valuesmat2[i, 796] <- ricenewarcepayment116 valuesmat2[i, 797] <- ricenewarcetotalacreprogram16 valuesmat2[i, 798] <- ricenewacredirectpayments17 valuesmat2[i, 799] <- ricenewacreLDP17 valuesmat2[i, 800] <- ricenewarceMax17 valuesmat2[i, 801] <- ricenewarcetestupper17 valuesmat2[i, 802] <- ricenewarcetestlower17 valuesmat2[i, 803] <- ricenewarcepayment17 valuesmat2[i, 804] <- ricenewarcepayment117 valuesmat2[i, 805] <- ricenewarcetotalacreprogram17 valuesmat2[i, 806] <- ricenewacredirectpayments18 valuesmat2[i, 807] <- ricenewacreLDP18 valuesmat2[i, 808] <- ricenewarceMax18 valuesmat2[i, 809] <- ricenewarcetestupper18 valuesmat2[i, 810] <- ricenewarcetestlower18 valuesmat2[i, 811] <- ricenewarcepayment18 valuesmat2[i, 812] <- ricenewarcepayment118 valuesmat2[i, 813] <- ricenewarcetotalacreprogram18 valuesmat2[i, 814] <- coarsebasecropreturn valuesmat2[i, 815] <- coarsenewcropreturn valuesmat2[i, 816] <- coarsenewpercentchangecropreturn valuesmat2[i, 817] <- soybeansbasecropreturn valuesmat2[i, 818] <- soybeansnewcropreturn valuesmat2[i, 819] <- soybeansnewpercentchangecropreturn valuesmat2[i, 820] <- wheatbasecropreturn valuesmat2[i, 821] <- wheatnewcropreturn valuesmat2[i, 822] <- wheatnewpercentchangecropreturn valuesmat2[i, 823] <- ricebasecropreturn valuesmat2[i, 824] <- ricenewcropreturn valuesmat2[i, 825] <- ricenewpercentchangecropreturn valuesmat2[i, 826] <- baseCGproduction valuesmat2[i, 827] <- calCGproduction valuesmat2[i, 828] <- baseCGimports valuesmat2[i, 829] <- calCGimports valuesmat2[i, 830] <- baseCGexports valuesmat2[i, 831] <- calCGexports valuesmat2[i, 832] <- baseCGBstock valuesmat2[i, 833] <- calCGBstock valuesmat2[i, 834] <- baseCGFSI valuesmat2[i, 835] <- calCGFSI valuesmat2[i, 836] <- baseCGfeeduse valuesmat2[i, 837] <- calCGfeeduse valuesmat2[i, 838] <- baseCGyellowprice valuesmat2[i, 839] <- calCGyellowprice valuesmat2[i, 840] <- baseCGfarmprice valuesmat2[i, 841] <- calCGfarmprice valuesmat2[i, 842] <- baseCGEstock valuesmat2[i, 843] <- calCGEstock valuesmat2[i, 844] <- baseCGfeedusebeefcattle valuesmat2[i, 845] <- calCGfeedusebeefcattle valuesmat2[i, 846] <- baseCGfeedusedairycattle valuesmat2[i, 847] <- calCGfeedusedairycattle valuesmat2[i, 848] <- baseCGfeeduseswine valuesmat2[i, 849] <- calCGfeeduseswine valuesmat2[i, 850] <- baseCGfeedusebirds valuesmat2[i, 851] <- calCGfeedusebirds valuesmat2[i, 852] <- baseCGfeeduselayers valuesmat2[i, 853] <- calCGfeeduselayers valuesmat2[i, 854] <- baseCGfeeduselambs valuesmat2[i, 855] <- calCGfeeduselambs valuesmat2[i, 856] <- baseCGchokepricecalculated valuesmat2[i, 857] <- calCGchokepricecalculated valuesmat2[i, 858] <- baseCGconstant valuesmat2[i, 859] <- calCGconstant valuesmat2[i, 860] <- baseCGconsurpluspercapita valuesmat2[i, 861] <- calCGconsurpluspercapita valuesmat2[i, 862] <- baseCGpopnotconsuming valuesmat2[i, 863] <- calCGpopnotconsuming valuesmat2[i, 864] <- baseCGconsurplusconsumingpop valuesmat2[i, 865] <- calCGconsurplusconsumingpop valuesmat2[i, 866] <- baseCGconsurplusforegone valuesmat2[i, 867] <- calCGconsurplusforegone valuesmat2[i, 868] <- baseCGconexpenditurepercapita valuesmat2[i, 869] <- calCGconexpenditurepercapita valuesmat2[i, 870] <- baseCGconexpendituretotal valuesmat2[i, 871] <- calCGconexpendituretotal valuesmat2[i, 872] <- baseCGtotalreturns valuesmat2[i, 873] <- calCGtotalreturns valuesmat2[i, 874] <- baseCGquasirentcapitalandmanagement valuesmat2[i, 875] <- calCGquasirentcapitalandmanagement valuesmat2[i, 876] <- baseCGcashsalesvalue valuesmat2[i, 877] <- calCGcashsalesvalue valuesmat2[i, 878] <- baseCGvalueofendinginventory valuesmat2[i, 879] <- calCGvalueofendinginventory valuesmat2[i, 880] <- baseCGquasirentcapitalandmanagement1 valuesmat2[i, 881] <- calCGquasirentcapitalandmanagement1 valuesmat2[i, 882] <- baseCGdirectpayment valuesmat2[i, 883] <- calCGdirectpayment valuesmat2[i, 884] <- baseCGMktloan valuesmat2[i, 885] <- calCGMktloan valuesmat2[i, 886] <- baseCGACRE valuesmat2[i, 887] <- calCGACRE valuesmat2[i, 888] <- baseCGparticipation valuesmat2[i, 889] <- calCGparticipation valuesmat2[i, 890] <- baseCGdirect valuesmat2[i, 891] <- calCGdirect valuesmat2[i, 892] <- baseCGMLS valuesmat2[i, 893] <- calCGMLS valuesmat2[i, 894] <- baseCGLDP valuesmat2[i, 895] <- calCGLDP valuesmat2[i, 896] <- baseCGCCP valuesmat2[i, 897] <- calCGCCP valuesmat2[i, 898] <- baseCGgovernmentpayments valuesmat2[i, 899] <- calCGgovernmentpayments valuesmat2[i, 900] <- baseForageBstocks valuesmat2[i, 901] <- calForageBstocks valuesmat2[i, 902] <- baseForageoutput valuesmat2[i, 903] <- calForageoutput valuesmat2[i, 904] <- baseForageuse valuesmat2[i, 905] <- calForageuse valuesmat2[i, 906] <- baseForageEstocks valuesmat2[i, 907] <- calForageEstocks valuesmat2[i, 908] <- baseForageprice valuesmat2[i, 909] <- calForageprice valuesmat2[i, 910] <- baseForagetotalreturns valuesmat2[i, 911] <- calForagetotalreturns valuesmat2[i, 912] <- baseForagequasirentcapitalandmanagement valuesmat2[i, 913] <- calForagequasirentcapitalandmanagement valuesmat2[i, 914] <- baseForagecashsalesvalue valuesmat2[i, 915] <- calForagecashsalesvalue valuesmat2[i, 916] <- baseForagevalueofendinginventory valuesmat2[i, 917] <- calForagevalueofendinginventory valuesmat2[i, 918] <- baseForagequasirentcapitalandmanagement1 valuesmat2[i, 919] <- calForagequasirentcapitalandmanagement1 valuesmat2[i, 920] <- basericeproduction valuesmat2[i, 921] <- calriceproduction valuesmat2[i, 922] <- basericeexports valuesmat2[i, 923] <- calriceexports valuesmat2[i, 924] <- basericeBstock valuesmat2[i, 925] <- calriceBstock valuesmat2[i, 926] <- basericeEstock valuesmat2[i, 927] <- calriceEstock valuesmat2[i, 928] <- basericefood valuesmat2[i, 929] <- calricefood valuesmat2[i, 930] <- basericelongrough valuesmat2[i, 931] <- calricelongrough valuesmat2[i, 932] <- basericefarmprice valuesmat2[i, 933] <- calricefarmprice valuesmat2[i, 934] <- basericeimports valuesmat2[i, 935] <- calriceimports valuesmat2[i, 936] <- basericechokepricecalculated valuesmat2[i, 937] <- basericeconstant valuesmat2[i, 938] <- basericeconsurpluspercapita valuesmat2[i, 939] <- calriceconsurpluspercapita valuesmat2[i, 940] <- basericepopnotconsuming valuesmat2[i, 941] <- calricepopnotconsuming valuesmat2[i, 942] <- basericeconsurplusconsumingpop valuesmat2[i, 943] <- calriceconsurplusconsumingpop valuesmat2[i, 944] <- basericeconsurplusforgone valuesmat2[i, 945] <- calriceconsurplusforgone valuesmat2[i, 946] <- basericeconexpendiurepercapita valuesmat2[i, 947] <- calriceconexpendiurepercapita valuesmat2[i, 948] <- basericeconexpendiuretotal valuesmat2[i, 949] <- calriceconexpendiuretotal valuesmat2[i, 950] <- basericetotalreturns valuesmat2[i, 951] <- calricetotalreturns valuesmat2[i, 952] <- basericequasirentcapitalandmanagement valuesmat2[i, 953] <- calricequasirentcapitalandmanagement valuesmat2[i, 954] <- basericecashsalesvalue valuesmat2[i, 955] <- calricecashsalesvalue valuesmat2[i, 956] <- basericevalueofendinginventory valuesmat2[i, 957] <- calricevalueofendinginventory valuesmat2[i, 958] <- basericequasirentcapitalandmanagement1 valuesmat2[i, 959] <- calricequasirentcapitalandmanagement1 valuesmat2[i, 960] <- basericedirectpayment valuesmat2[i, 961] <- calricedirectpayment valuesmat2[i, 962] <- basericeMktloan valuesmat2[i, 963] <- calriceMktloan valuesmat2[i, 964] <- basericeACRE valuesmat2[i, 965] <- calriceACRE valuesmat2[i, 966] <- basericeparticipation valuesmat2[i, 967] <- calriceparticipation valuesmat2[i, 968] <- basericedirect valuesmat2[i, 969] <- calricedirect valuesmat2[i, 970] <- basericeMLS valuesmat2[i, 971] <- calriceMLS valuesmat2[i, 972] <- basericeLDP valuesmat2[i, 973] <- calriceLDP valuesmat2[i, 974] <- basericeCCP valuesmat2[i, 975] <- calriceCCP valuesmat2[i, 976] <- basericegovernmentpayments valuesmat2[i, 977] <- calricegovernmentpayments valuesmat2[i, 978] <- basesoymealproduction valuesmat2[i, 979] <- calsoymealproduction valuesmat2[i, 980] <- basesoymealexports valuesmat2[i, 981] <- calsoymealexports valuesmat2[i, 982] <- basesoymealBstocks valuesmat2[i, 983] <- calsoymealBstocks valuesmat2[i, 984] <- basesoymealEstocks valuesmat2[i, 985] <- calsoymealEstocks valuesmat2[i, 986] <- basesoymealfeeduse valuesmat2[i, 987] <- calsoymealfeeduse valuesmat2[i, 988] <- basesoymealdecatur valuesmat2[i, 989] <- calsoymealdecatur valuesmat2[i, 990] <- basesoymealimports valuesmat2[i, 991] <- calsoymealimports valuesmat2[i, 992] <- basesoymealfeedusebeefcattle valuesmat2[i, 993] <- calsoymealfeedusebeefcattle valuesmat2[i, 994] <- basesoymealfeedusedairycattle valuesmat2[i, 995] <- calsoymealfeedusedairycattle valuesmat2[i, 996] <- basesoymealfeeduseswine valuesmat2[i, 997] <- calsoymealfeeduseswine valuesmat2[i, 998] <- basesoymealfeedusebirds valuesmat2[i, 999] <- calsoymealfeedusebirds valuesmat2[i, 1000] <- basesoymealfeeduselayers valuesmat2[i, 1001] <- calsoymealfeeduselayers valuesmat2[i, 1002] <- basesoymealfeeduselambs valuesmat2[i, 1003] <- calsoymealfeeduselambs valuesmat2[i, 1004] <- basesoyoilproduction valuesmat2[i, 1005] <- calsoyoilproduction valuesmat2[i, 1006] <- basesoyoilexports valuesmat2[i, 1007] <- calsoyoilexports valuesmat2[i, 1008] <- basesoyoilBstocks valuesmat2[i, 1009] <- calsoyoilBstocks valuesmat2[i, 1010] <- basesoyoilEstocks valuesmat2[i, 1011] <- calsoyoilEstocks valuesmat2[i, 1012] <- basesoyoilfooduse valuesmat2[i, 1013] <- calsoyoilfooduse valuesmat2[i, 1014] <- basesoyoilcrude valuesmat2[i, 1015] <- calsoyoilcrude valuesmat2[i, 1016] <- basesoyoilimports valuesmat2[i, 1017] <- calsoyoilimports valuesmat2[i, 1018] <- basesoyoilchokepricecalculated valuesmat2[i, 1019] <- calsoyoilchokepricecalculated valuesmat2[i, 1020] <- basesoyoilconstant valuesmat2[i, 1021] <- calsoyoilconstant valuesmat2[i, 1022] <- basesoyoilconsurpluspercapita valuesmat2[i, 1023] <- calsoyoilconsurpluspercapita valuesmat2[i, 1024] <- basesoyoilpopnotconsuming valuesmat2[i, 1025] <- calsoyoilpopnotconsuming valuesmat2[i, 1026] <- basesoyoilconsurplusconsuming valuesmat2[i, 1027] <- calsoyoilconsurplusconsuming valuesmat2[i, 1028] <- basesoyoilconsurplusforgone valuesmat2[i, 1029] <- calsoyoilconsurplusforgone valuesmat2[i, 1030] <- basesoyoilconexpenditurepercapita valuesmat2[i, 1031] <- calsoyoilconexpenditurepercapita valuesmat2[i, 1032] <- basesoyoilconexpendituretotal valuesmat2[i, 1033] <- calsoyoilconexpendituretotal valuesmat2[i, 1034] <- basesoybeansproduction valuesmat2[i, 1035] <- calsoybeansproduction valuesmat2[i, 1036] <- basesoybeansexports valuesmat2[i, 1037] <- calsoybeansexports valuesmat2[i, 1038] <- basesoybeansBstock valuesmat2[i, 1039] <- calsoybeansBstock valuesmat2[i, 1040] <- basesoybeansEstock valuesmat2[i, 1041] <- calsoybeansEstock valuesmat2[i, 1042] <- basesoybeanscrush valuesmat2[i, 1043] <- calsoybeanscrush valuesmat2[i, 1044] <- basesoybeansno1yellow valuesmat2[i, 1045] <- calsoybeansno1yellow valuesmat2[i, 1046] <- basesoybeansfarmprice valuesmat2[i, 1047] <- calsoybeansfarmprice valuesmat2[i, 1048] <- basesoybeansimports valuesmat2[i, 1049] <- calsoybeansimports valuesmat2[i, 1050] <- basesoybeansvaluemeal valuesmat2[i, 1051] <- calsoybeansvaluemeal valuesmat2[i, 1052] <- basesoybeansvalueoil valuesmat2[i, 1053] <- calsoybeansvalueoil valuesmat2[i, 1054] <- basesoybeanscostsoybeans valuesmat2[i, 1055] <- calsoybeanscostsoybeans valuesmat2[i, 1056] <- basesoybeansreturntocrushing valuesmat2[i, 1057] <- calsoybeansreturntocrushing valuesmat2[i, 1058] <- basesoybeanstotalreturns valuesmat2[i, 1059] <- calsoybeanstotalreturns valuesmat2[i, 1060] <- basesoybeansquasirentcapitalandmanagement valuesmat2[i, 1061] <- calsoybeansquasirentcapitalandmanagement valuesmat2[i, 1062] <- basesoybeanscashsalesvalue valuesmat2[i, 1063] <- calsoybeanscashsalesvalue valuesmat2[i, 1064] <- basesoybeansvalueofendinginventory valuesmat2[i, 1065] <- calsoybeansvalueofendinginventory valuesmat2[i, 1066] <- basesoybeansquasirentcapitalandmanagement1 valuesmat2[i, 1067] <- calsoybeansquasirentcapitalandmanagement1 valuesmat2[i, 1068] <- basesoybeansdirectpayment valuesmat2[i, 1069] <- calsoybeansdirectpayment valuesmat2[i, 1070] <- basesoybeansMktloan valuesmat2[i, 1071] <- calsoybeansMktloan valuesmat2[i, 1072] <- basesoybeansACRE valuesmat2[i, 1073] <- calsoybeansACRE valuesmat2[i, 1074] <- basesoybeansparticipation valuesmat2[i, 1075] <- calsoybeansparticipation valuesmat2[i, 1076] <- basesoybeansdirect valuesmat2[i, 1077] <- calsoybeansdirect valuesmat2[i, 1078] <- basesoybeansMLS valuesmat2[i, 1079] <- calsoybeansMLS valuesmat2[i, 1080] <- basesoybeansLDP valuesmat2[i, 1081] <- calsoybeansLDP valuesmat2[i, 1082] <- basesoybeansCCP valuesmat2[i, 1083] <- calsoybeansCCP valuesmat2[i, 1084] <- basesoybeansgovernmentpayments valuesmat2[i, 1085] <- calsoybeansgovernmentpayments valuesmat2[i, 1086] <- basewheatproduction valuesmat2[i, 1087] <- calwheatproduction valuesmat2[i, 1088] <- basewheatexports valuesmat2[i, 1089] <- calwheatexports valuesmat2[i, 1090] <- basewheatBstock valuesmat2[i, 1091] <- calwheatBstock valuesmat2[i, 1092] <- basewheatEstock valuesmat2[i, 1093] <- calwheatEstock valuesmat2[i, 1094] <- basewheatfood valuesmat2[i, 1095] <- calwheatfood valuesmat2[i, 1096] <- basewheatfeeduse valuesmat2[i, 1097] <- calwheatfeeduse valuesmat2[i, 1098] <- basewheatKSprice valuesmat2[i, 1099] <- calwheatKSprice valuesmat2[i, 1100] <- basewheatfarmprice valuesmat2[i, 1101] <- calwheatfarmprice valuesmat2[i, 1102] <- basewheatimports valuesmat2[i, 1103] <- calwheatimports valuesmat2[i, 1104] <- basewheatfeedusebeefcattle valuesmat2[i, 1105] <- calwheatfeedusebeefcattle valuesmat2[i, 1106] <- basewheatfeedusedairycattle valuesmat2[i, 1107] <- calwheatfeedusedairycattle valuesmat2[i, 1108] <- basewheatfeeduseswine valuesmat2[i, 1109] <- calwheatfeeduseswine valuesmat2[i, 1110] <- basewheatfeedusebirds valuesmat2[i, 1111] <- calwheatfeedusebirds valuesmat2[i, 1112] <- basewheatfeeduselayers valuesmat2[i, 1113] <- calwheatfeeduselayers valuesmat2[i, 1114] <- basewheatfeeduselambs valuesmat2[i, 1115] <- calwheatfeeduselambs valuesmat2[i, 1116] <- basewheatchokepwheatcalculated valuesmat2[i, 1117] <- basewheatconstant valuesmat2[i, 1118] <- basewheatconsurpluspercapita valuesmat2[i, 1119] <- calwheatconsurpluspercapita valuesmat2[i, 1120] <- basewheatpopnotconsuming valuesmat2[i, 1121] <- calwheatpopnotconsuming valuesmat2[i, 1122] <- basewheatconsurplusconsumingpop valuesmat2[i, 1123] <- calwheatconsurplusconsumingpop valuesmat2[i, 1124] <- basewheatconsurplusforgone valuesmat2[i, 1125] <- calwheatconsurplusforgone valuesmat2[i, 1126] <- basewheatconexpendiurepercapita valuesmat2[i, 1127] <- calwheatconexpendiurepercapita valuesmat2[i, 1128] <- basewheatconexpendiuretotal valuesmat2[i, 1129] <- calwheatconexpendiuretotal valuesmat2[i, 1130] <- basewheattotalreturns valuesmat2[i, 1131] <- calwheattotalreturns valuesmat2[i, 1132] <- basewheatquasirentcapitalandmanagement valuesmat2[i, 1133] <- calwheatquasirentcapitalandmanagement valuesmat2[i, 1134] <- basewheatcashsalesvalue valuesmat2[i, 1135] <- calwheatcashsalesvalue valuesmat2[i, 1136] <- basewheatvalueofendinginventory valuesmat2[i, 1137] <- calwheatvalueofendinginventory valuesmat2[i, 1138] <- basewheatquasirentcapitalandmanagement1 valuesmat2[i, 1139] <- calwheatquasirentcapitalandmanagement1 valuesmat2[i, 1140] <- basewheatdirectpayment valuesmat2[i, 1141] <- calwheatdirectpayment valuesmat2[i, 1142] <- basewheatMktloan valuesmat2[i, 1143] <- calwheatMktloan valuesmat2[i, 1144] <- basewheatACRE valuesmat2[i, 1145] <- calwheatACRE valuesmat2[i, 1146] <- basewheatparticipation valuesmat2[i, 1147] <- calwheatparticipation valuesmat2[i, 1148] <- basewheatdirect valuesmat2[i, 1149] <- calwheatdirect valuesmat2[i, 1150] <- basewheatMLS valuesmat2[i, 1151] <- calwheatMLS valuesmat2[i, 1152] <- basewheatLDP valuesmat2[i, 1153] <- calwheatLDP valuesmat2[i, 1154] <- basewheatCCP valuesmat2[i, 1155] <- calwheatCCP valuesmat2[i, 1156] <- basewheatgovernmentpayments valuesmat2[i, 1157] <- calwheatgovernmentpayments valuesmat2[i, 1158] <- basecattleimportfeeding valuesmat2[i, 1159] <- calcattleimportfeeding valuesmat2[i, 1160] <- basecattleimportslaughter valuesmat2[i, 1161] <- calcattleimportslaughter valuesmat2[i, 1162] <- basecattleimportscows valuesmat2[i, 1163] <- basecattleimportsPB valuesmat2[i, 1164] <- basecattleimportstotal valuesmat2[i, 1165] <- basecattleexportsfeeding valuesmat2[i, 1166] <- calcattleexportsfeeding valuesmat2[i, 1167] <- basecattleexportsslaughter valuesmat2[i, 1168] <- calcattleexportsslaughter valuesmat2[i, 1169] <- basecattleexportstotal valuesmat2[i, 1170] <- basecattlecommsteers valuesmat2[i, 1171] <- basecattlecommheifers valuesmat2[i, 1172] <- basecattlecommcows valuesmat2[i, 1173] <- calcattlecommcows valuesmat2[i, 1174] <- basecattlelivesteerprice valuesmat2[i, 1175] <- calcattlelivesteerprice valuesmat2[i, 1176] <- basecattleinvfinish valuesmat2[i, 1177] <- calcattleinvfinish valuesmat2[i, 1178] <- basecattleinvbg2 valuesmat2[i, 1179] <- calcattleinvbg2 valuesmat2[i, 1180] <- basecattleinvbg1 valuesmat2[i, 1181] <- calcattleinvbg1 valuesmat2[i, 1182] <- basecattleinvprewean valuesmat2[i, 1183] <- calcattleinvprewean valuesmat2[i, 1184] <- basecattleinvpostbirth valuesmat2[i, 1185] <- calcattleinvpostbirth valuesmat2[i, 1186] <- basecattleinvpostpartum valuesmat2[i, 1187] <- calcattleinvpostpartum valuesmat2[i, 1188] <- basecattleinvtri3 valuesmat2[i, 1189] <- calcattleinvtri3 valuesmat2[i, 1190] <- basecattleinvtri2 valuesmat2[i, 1191] <- calcattleinvtri2 valuesmat2[i, 1192] <- basecattleinvtri1 valuesmat2[i, 1193] <- calcattleinvtri1 valuesmat2[i, 1194] <- basecattleinvrep valuesmat2[i, 1195] <- calcattleinvrep valuesmat2[i, 1196] <- basecattleinvbulls valuesmat2[i, 1197] <- calcattleinvbulls valuesmat2[i, 1198] <- basecattlecommslaughter valuesmat2[i, 1199] <- calcattlecommslaughter valuesmat2[i, 1200] <- basecattlecommliveslaughter valuesmat2[i, 1201] <- calcattlecommliveslaughter valuesmat2[i, 1202] <- basecattlevalueofanimalsslaughtered valuesmat2[i, 1203] <- calcattlevalueofanimalsslaughtered valuesmat2[i, 1204] <- basecattlevalueofanimalsfuture valuesmat2[i, 1205] <- calcattlevalueofanimalsfuture valuesmat2[i, 1206] <- basecattlecoarsecost valuesmat2[i, 1207] <- calcattlecoarsecost valuesmat2[i, 1208] <- basecattlewheatcost valuesmat2[i, 1209] <- calcattlewheatcost valuesmat2[i, 1210] <- basecattleforagecost valuesmat2[i, 1211] <- calcattleforagecost valuesmat2[i, 1212] <- basecattlevalueofmeatremoved valuesmat2[i, 1213] <- calcattlevalueofmeatremoved valuesmat2[i, 1214] <- basecattleperanimal valuesmat2[i, 1215] <- calcattleperanimal valuesmat2[i, 1216] <- basecattletotal valuesmat2[i, 1217] <- calcattletotal valuesmat2[i, 1218] <- basecattleexpectedbenefit valuesmat2[i, 1219] <- calcattleexpectedbenefit valuesmat2[i, 1220] <- basecattlevalueofbreedingremoved valuesmat2[i, 1221] <- calcattlevalueofbreedingremoved valuesmat2[i, 1222] <- basecattlevalueofbreeding valuesmat2[i, 1223] <- calcattlevalueofbreeding valuesmat2[i, 1224] <- basebeefpopulation valuesmat2[i, 1225] <- calbeefpopulation valuesmat2[i, 1226] <- basebeeftotalcon valuesmat2[i, 1227] <- calbeeftotalcon valuesmat2[i, 1228] <- basebeefpercapitacon valuesmat2[i, 1229] <- calbeefpercapitacon valuesmat2[i, 1230] <- basebeefproduction valuesmat2[i, 1231] <- calbeefproduction valuesmat2[i, 1232] <- basebeefimports valuesmat2[i, 1233] <- calbeefimports valuesmat2[i, 1234] <- basebeefexports valuesmat2[i, 1235] <- calbeefexports valuesmat2[i, 1236] <- basebeefbstock valuesmat2[i, 1237] <- calbeefbstock valuesmat2[i, 1238] <- basebeefestock valuesmat2[i, 1239] <- calbeefestock valuesmat2[i, 1240] <- basebeefcutout valuesmat2[i, 1241] <- calbeefcutout valuesmat2[i, 1242] <- basebeefretailprice valuesmat2[i, 1243] <- calbeefretailprice valuesmat2[i, 1244] <- basebeefchokepricecalculated valuesmat2[i, 1245] <- calbeefchokepricecalculated valuesmat2[i, 1246] <- basebeefconstant valuesmat2[i, 1247] <- calbeefconstant valuesmat2[i, 1248] <- basebeefconsurpluspercapita valuesmat2[i, 1249] <- calbeefconsurpluspercapita valuesmat2[i, 1250] <- basebeefpopnotconsuming valuesmat2[i, 1251] <- calbeefpopnotconsuming valuesmat2[i, 1252] <- basebeefconsurplusconsumingpop valuesmat2[i, 1253] <- calbeefconsurplusconsumingpop valuesmat2[i, 1254] <- basebeefconsurplusforegone valuesmat2[i, 1255] <- calbeefconsurplusforegone valuesmat2[i, 1256] <- basebeefconexpenditurepercapita valuesmat2[i, 1257] <- calbeefconexpenditurepercapita valuesmat2[i, 1258] <- basebeefconexpendituretotal valuesmat2[i, 1259] <- calbeefconexpendituretotal valuesmat2[i, 1260] <- basebeefretailproductionvalue valuesmat2[i, 1261] <- calbeefretailproductionvalue valuesmat2[i, 1262] <- basebeefproducerproductionvalue valuesmat2[i, 1263] <- calbeefproducerproductionvalue valuesmat2[i, 1264] <- basebeefexogenousinputcosts valuesmat2[i, 1265] <- calbeefexogenousinputcosts valuesmat2[i, 1266] <- basebeefanimalcosts valuesmat2[i, 1267] <- calbeefanimalcosts valuesmat2[i, 1268] <- basebeefcapitalcosts valuesmat2[i, 1269] <- calbeefcapitalcosts valuesmat2[i, 1270] <- baselayernumbers valuesmat2[i, 1271] <- callayernumers valuesmat2[i, 1272] <- baselayernumbers valuesmat2[i, 1273] <- calbroilernumbers valuesmat2[i, 1274] <- basevalueofmeatbirdsslaughtered valuesmat2[i, 1275] <- calvalueofmeatbirdsslaughtered valuesmat2[i, 1276] <- basevalueofanimalsremoved valuesmat2[i, 1277] <- calvalueofanimalsremoved valuesmat2[i, 1278] <- basedairytotalimports valuesmat2[i, 1279] <- caldairytotalimports valuesmat2[i, 1280] <- basedairytotalexports valuesmat2[i, 1281] <- caldairytotalexports valuesmat2[i, 1282] <- basedairycommslaughter valuesmat2[i, 1283] <- caldairycommslaughter valuesmat2[i, 1284] <- basedairyconliveslaughter valuesmat2[i, 1285] <- caldairyconliveslaughter valuesmat2[i, 1286] <- basedairyBFandDC valuesmat2[i, 1287] <- caldairyBFandDC valuesmat2[i, 1288] <- basedairyinvDMI valuesmat2[i, 1289] <- caldairyinvDMI valuesmat2[i, 1290] <- basedairyinvPP valuesmat2[i, 1291] <- caldairyinvPP valuesmat2[i, 1292] <- basedairyinvDry valuesmat2[i, 1293] <- caldairyinvDry valuesmat2[i, 1294] <- basedairyinvRW valuesmat2[i, 1295] <- caldairyinvRW valuesmat2[i, 1296] <- basedairyinvRheif valuesmat2[i, 1297] <- caldairyinvRheif valuesmat2[i, 1298] <- basedairyinvbulls valuesmat2[i, 1299] <- caldairyinvbulls valuesmat2[i, 1300] <- basedairyreplacementheifers valuesmat2[i, 1301] <- caldairyreplacementheifers valuesmat2[i, 1302] <- basedairycalves valuesmat2[i, 1303] <- caldairycalves valuesmat2[i, 1304] <- basedairyvalueofslaughtered valuesmat2[i, 1305] <- caldairyvalueofslaughtered valuesmat2[i, 1306] <- basedairyexpectedbenefit valuesmat2[i, 1307] <- caldairyexpectedbenefit valuesmat2[i, 1308] <- basedairyvalueofremoved valuesmat2[i, 1309] <- caldairyvalueofremoved valuesmat2[i, 1310] <- basedairyvalueofinventory valuesmat2[i, 1311] <- caldairyvalueofinventory valuesmat2[i, 1312] <- baseeggspopulation valuesmat2[i, 1313] <- caleggspopulation valuesmat2[i, 1314] <- baseeggstotalconsumption valuesmat2[i, 1315] <- caleggstotalconsumption valuesmat2[i, 1316] <- baseeggsconsumption valuesmat2[i, 1317] <- caleggsconsumption valuesmat2[i, 1318] <- baseeggsproduction valuesmat2[i, 1319] <- caleggsproduction valuesmat2[i, 1320] <- baseeggsimports valuesmat2[i, 1321] <- caleggsimports valuesmat2[i, 1322] <- baseeggsexports valuesmat2[i, 1323] <- caleggsexports valuesmat2[i, 1324] <- baseeggsbeginningstocks valuesmat2[i, 1325] <- caleggsbeginningstocks valuesmat2[i, 1326] <- baseeggsendingstocks valuesmat2[i, 1327] <- caleggsendingstocks valuesmat2[i, 1328] <- baseeggspriceswholesale valuesmat2[i, 1329] <- caleggspriceswholesale valuesmat2[i, 1330] <- baseeggsretail valuesmat2[i, 1331] <- caleggsretail valuesmat2[i, 1332] <- baseeggshatchingegguse valuesmat2[i, 1333] <- caleggshatchingegguse valuesmat2[i, 1334] <- baseeggschokepricecalculated valuesmat2[i, 1335] <- caleggschokepricecalculated valuesmat2[i, 1336] <- baseeggsconstant valuesmat2[i, 1337] <- caleggsconstant valuesmat2[i, 1338] <- baseeggsconsurpluspercapita valuesmat2[i, 1339] <- caleggsconsurpluspercapita valuesmat2[i, 1340] <- baseeggspopnotconsuming valuesmat2[i, 1341] <- caleggspopnotconsuming valuesmat2[i, 1342] <- baseeggsconsurplusconsumingpop valuesmat2[i, 1343] <- caleggsconsurplusconsumingpop valuesmat2[i, 1344] <- baseeggsconsurplusforegone valuesmat2[i, 1345] <- caleggsconsurplusforegone valuesmat2[i, 1346] <- baseeggsconexpenditurepercapita valuesmat2[i, 1347] <- caleggsconexpenditurepercapita valuesmat2[i, 1348] <- baseeggsconexpendituretotal valuesmat2[i, 1349] <- caleggsconexpendituretotal valuesmat2[i, 1350] <- baseeggsretailproductionvalue valuesmat2[i, 1351] <- caleggsretailproductionvalue valuesmat2[i, 1352] <- baseeggsproducerproductionvalue valuesmat2[i, 1353] <- caleggsproducerproductionvalue valuesmat2[i, 1354] <- baseeggsexogenousinputcosts valuesmat2[i, 1355] <- caleggsexogenousinputcosts valuesmat2[i, 1356] <- baseeggsfeedcosts valuesmat2[i, 1357] <- caleggsfeedcosts valuesmat2[i, 1358] <- baseeggscosts valuesmat2[i, 1359] <- caleggscosts valuesmat2[i, 1360] <- baseeggssoymealcosts valuesmat2[i, 1361] <- caleggssoymealcosts valuesmat2[i, 1362] <- baseeggscapitalcosts valuesmat2[i, 1363] <- caleggscapitalcosts valuesmat2[i, 1364] <- basehogimportsfeeders valuesmat2[i, 1365] <- calhogimportsfeeders valuesmat2[i, 1366] <- basehogimportsslaughter valuesmat2[i, 1367] <- calhogimportsslaughter valuesmat2[i, 1368] <- basehogimportsother valuesmat2[i, 1369] <- basehogtotalimports valuesmat2[i, 1370] <- basehogexportsfeeders valuesmat2[i, 1371] <- calhogexportsfeeders valuesmat2[i, 1372] <- basehogexportsslaughter valuesmat2[i, 1373] <- calhogexportsslaughter valuesmat2[i, 1374] <- basehogexportspurebred valuesmat2[i, 1375] <- basehogtotalexports valuesmat2[i, 1376] <- basehogbarrows valuesmat2[i, 1377] <- basehogsows valuesmat2[i, 1378] <- calhogsows valuesmat2[i, 1379] <- basehogboars valuesmat2[i, 1380] <- basehogcommliveslaughter valuesmat2[i, 1381] <- calhogcommliveslaughter valuesmat2[i, 1382] <- basehogcarcass valuesmat2[i, 1383] <- calhogcarcass valuesmat2[i, 1384] <- basehoginvbreeding valuesmat2[i, 1385] <- calhoginvbreeding valuesmat2[i, 1386] <- basehoginvpigcrop valuesmat2[i, 1387] <- calhoginvpigcrop valuesmat2[i, 1388] <- basehoginvlate valuesmat2[i, 1389] <- calhoginvlate valuesmat2[i, 1390] <- basehoginvearly valuesmat2[i, 1391] <- calhoginvearly valuesmat2[i, 1392] <- basehogpricesows valuesmat2[i, 1393] <- calhogpricesows valuesmat2[i, 1394] <- basehogtotal valuesmat2[i, 1395] <- calhogtotal valuesmat2[i, 1396] <- basehogvaluestofslaughtered valuesmat2[i, 1397] <- calhogvaluesofslaughtered valuesmat2[i, 1398] <- basehogvaluesoffuture valuesmat2[i, 1399] <- calhogvaluesoffuture valuesmat2[i, 1400] <- basehogsCGcosts valuesmat2[i, 1401] <- calhogsCGcosts valuesmat2[i, 1402] <- basehogwheatcost valuesmat2[i, 1403] <- calhogwheatcost valuesmat2[i, 1404] <- basehogsoymealcosts valuesmat2[i, 1405] <- calhogsoymealcosts valuesmat2[i, 1406] <- basehogvalueofmeatanimalsremoved valuesmat2[i, 1407] <- calhogvalueofmeatanimalsremoved valuesmat2[i, 1408] <- basehogperanimal valuesmat2[i, 1409] <- calhogperanimal valuesmat2[i, 1410] <- basehogtotal valuesmat2[i, 1411] <- calhogtotal valuesmat2[i, 1412] <- basehogexpectedbenefit valuesmat2[i, 1413] <- calhogexpectedbenefit valuesmat2[i, 1414] <- basehogvalueofbreedingremoved valuesmat2[i, 1415] <- calhogvalueofbreedingremoved valuesmat2[i, 1416] <- basehogvalueofinventory valuesmat2[i, 1417] <- calhogvalueofinventory valuesmat2[i, 1418] <- baselambimports valuesmat2[i, 1419] <- callambimports valuesmat2[i, 1420] <- baselambexports valuesmat2[i, 1421] <- callambexports valuesmat2[i, 1422] <- baselambpriceslaughter valuesmat2[i, 1423] <- callambpriceslaughter valuesmat2[i, 1424] <- baselambinvfinish valuesmat2[i, 1425] <- callambinvfinish valuesmat2[i, 1426] <- baselambinvgrower valuesmat2[i, 1427] <- callambinvgrower valuesmat2[i, 1428] <- baselambinvbackground valuesmat2[i, 1429] <- callambinvbackground valuesmat2[i, 1430] <- baselambinvprewean valuesmat2[i, 1431] <- callambinvprewean valuesmat2[i, 1432] <- baselambinvlactating valuesmat2[i, 1433] <- callambinvlactating valuesmat2[i, 1434] <- baselambinvgestating valuesmat2[i, 1435] <- callambinvgestating valuesmat2[i, 1436] <- baselambinvbreeding valuesmat2[i, 1437] <- callambinvbreeding valuesmat2[i, 1438] <- baselambinvpostweaning valuesmat2[i, 1439] <- callambinvpostweaning valuesmat2[i, 1440] <- baselambinvrams valuesmat2[i, 1441] <- callambinvrams valuesmat2[i, 1442] <- baselambinvreplacement valuesmat2[i, 1443] <- callambinvreplacement valuesmat2[i, 1444] <- baselambeweprice valuesmat2[i, 1445] <- callambeweprice valuesmat2[i, 1446] <- baselambslaughter valuesmat2[i, 1447] <- callambslaughter valuesmat2[i, 1448] <- baselambliveslaughter valuesmat2[i, 1449] <- callambliveslaughter valuesmat2[i, 1450] <- baselambvalueofslaughtered valuesmat2[i, 1451] <- callambvalueofslaughtered valuesmat2[i, 1452] <- baselambvalueoffuture valuesmat2[i, 1453] <- callambvalueoffuture valuesmat2[i, 1454] <- baselambCGcosts valuesmat2[i, 1455] <- callambCGcosts valuesmat2[i, 1456] <- baselambwheatcost valuesmat2[i, 1457] <- callambwheatcost valuesmat2[i, 1458] <- baselambsoymealcosts valuesmat2[i, 1459] <- callambsoymealcosts valuesmat2[i, 1460] <- baselambforagecosts valuesmat2[i, 1461] <- callambforagecosts valuesmat2[i, 1462] <- baselambvalueofmeatremoved valuesmat2[i, 1463] <- callambvalueofmeatremoved valuesmat2[i, 1464] <- baselambperanimal valuesmat2[i, 1465] <- callambperanimal valuesmat2[i, 1466] <- baselambtotal valuesmat2[i, 1467] <- callambtotal valuesmat2[i, 1468] <- baselambexpectedbenefit valuesmat2[i, 1469] <- callambexpectedbenefit valuesmat2[i, 1470] <- baselambvalueofbreedingremoved valuesmat2[i, 1471] <- callambvalueofbreedingremoved valuesmat2[i, 1472] <- baselambvalueofbreeding valuesmat2[i, 1473] <- callambvalueofbreeding valuesmat2[i, 1474] <- basemilkpopulation valuesmat2[i, 1475] <- calmilkpopulation valuesmat2[i, 1476] <- basemilkcon valuesmat2[i, 1477] <- calmilkcon valuesmat2[i, 1478] <- basemilkpercap valuesmat2[i, 1479] <- calmilkpercap valuesmat2[i, 1480] <- basemilkproduction valuesmat2[i, 1481] <- calmilkproduction valuesmat2[i, 1482] <- basemilkimports valuesmat2[i, 1483] <- calmilkimports valuesmat2[i, 1484] <- basemilkexports valuesmat2[i, 1485] <- calmilkexports valuesmat2[i, 1486] <- basemilkbstocks valuesmat2[i, 1487] <- calmilkbstocks valuesmat2[i, 1488] <- basemilkfarmer valuesmat2[i, 1489] <- calmilkfarmer valuesmat2[i, 1490] <- basemilkretail valuesmat2[i, 1491] <- calmilkretail valuesmat2[i, 1492] <- basemilknetremoval valuesmat2[i, 1493] <- calmilknetremoval valuesmat2[i, 1494] <- basemilkmarketing valuesmat2[i, 1495] <- calmilkmarketing valuesmat2[i, 1496] <- basemilkuse valuesmat2[i, 1497] <- calmilkuse valuesmat2[i, 1498] <- basemilkestocks valuesmat2[i, 1499] <- calmilkestocks valuesmat2[i, 1500] <- basemilkchokepricecalculated valuesmat2[i, 1501] <- calmilkchokepricecalculated valuesmat2[i, 1502] <- basemilkconstant valuesmat2[i, 1503] <- calmilkconstant valuesmat2[i, 1504] <- basemilkconsurpluspercapita valuesmat2[i, 1505] <- calmilkconsurpluspercapita valuesmat2[i, 1506] <- basemilkpopnotconsuming valuesmat2[i, 1507] <- calmilkpopnotconsuming valuesmat2[i, 1508] <- basemilkconsurplusconsumingpop valuesmat2[i, 1509] <- calmilkconsurplusconsumingpop valuesmat2[i, 1510] <- basemilksconsurplusforegone valuesmat2[i, 1511] <- calmilkconsurplusforegone valuesmat2[i, 1512] <- basemilkconexpenditurepercapita valuesmat2[i, 1513] <- calmilkconexpenditurepercapita valuesmat2[i, 1514] <- basemilkconexpendituretotal valuesmat2[i, 1515] <- calmilkconexpendituretotal valuesmat2[i, 1516] <- basemilkretailproductionvalue valuesmat2[i, 1517] <- calmilkretailproductionvalue valuesmat2[i, 1518] <- basemilkproducerproductionvalue valuesmat2[i, 1519] <- calmilkproducerproductionvalue valuesmat2[i, 1520] <- basemilkexogenousinputcosts valuesmat2[i, 1521] <- calmilkexogenousinputcosts valuesmat2[i, 1522] <- basemilkCGcosts valuesmat2[i, 1523] <- calmilkCGcosts valuesmat2[i, 1524] <- basemilkwheatcost valuesmat2[i, 1525] <- calmilkwheatcost valuesmat2[i, 1526] <- basemilksoymealcosts valuesmat2[i, 1527] <- calmilksoymealcosts valuesmat2[i, 1528] <- basemilkforagecosts valuesmat2[i, 1529] <- callmilkforagecosts valuesmat2[i, 1530] <- basemilkcapitalcosts valuesmat2[i, 1531] <- calmilkcapitalcosts valuesmat2[i, 1532] <- baseporkpopulation valuesmat2[i, 1533] <- calporkpopulation valuesmat2[i, 1534] <- baseporktotalcon valuesmat2[i, 1535] <- calporktotalcon valuesmat2[i, 1536] <- baseporkpercapitacon valuesmat2[i, 1537] <- calporkpercapitacon valuesmat2[i, 1538] <- baseporkproduction valuesmat2[i, 1539] <- calporkproduction valuesmat2[i, 1540] <- baseporkimports valuesmat2[i, 1541] <- calporkimports valuesmat2[i, 1542] <- baseporkexports valuesmat2[i, 1543] <- calporkexports valuesmat2[i, 1544] <- baseporkbstock valuesmat2[i, 1545] <- calporkbstock valuesmat2[i, 1546] <- baseporkestock valuesmat2[i, 1547] <- calporkestock valuesmat2[i, 1548] <- baseporkcutout valuesmat2[i, 1549] <- calporkcutout valuesmat2[i, 1550] <- baseporkretailprice valuesmat2[i, 1551] <- calporkretailprice valuesmat2[i, 1552] <- baseporkchokepricecalculated valuesmat2[i, 1553] <- calporkchokepricecalculated valuesmat2[i, 1554] <- baseporkconstant valuesmat2[i, 1555] <- calporkconstant valuesmat2[i, 1556] <- baseporkconsurpluspercapita valuesmat2[i, 1557] <- calporkconsurpluspercapita valuesmat2[i, 1558] <- baseporkpopnotconsuming valuesmat2[i, 1559] <- calporkpopnotconsuming valuesmat2[i, 1560] <- baseporkconsurplusconsumingpop valuesmat2[i, 1561] <- calporkconsurplusconsumingpop valuesmat2[i, 1562] <- baseporkconsurplusforegone valuesmat2[i, 1563] <- calporkconsurplusforegone valuesmat2[i, 1564] <- baseporkconexpenditurepercapita valuesmat2[i, 1565] <- calporkconexpenditurepercapita valuesmat2[i, 1566] <- baseporkconexpendituretotal valuesmat2[i, 1567] <- calporkconexpendituretotal valuesmat2[i, 1568] <- baseporkretailproductionvalue valuesmat2[i, 1569] <- calporkretailproductionvalue valuesmat2[i, 1570] <- baseporkproducerproductionvalue valuesmat2[i, 1571] <- calporkproducerproductionvalue valuesmat2[i, 1572] <- baseporkexogenousinputcosts valuesmat2[i, 1573] <- calporkexogenousinputcosts valuesmat2[i, 1574] <- baseporkanimalcosts valuesmat2[i, 1575] <- calporkanimalcosts valuesmat2[i, 1576] <- baseporkcapitalcosts valuesmat2[i, 1577] <- calporkcapitalcosts valuesmat2[i, 1578] <- baselambmeatpopulation valuesmat2[i, 1579] <- callambmeatpopulation valuesmat2[i, 1580] <- baselambmeattotalcon valuesmat2[i, 1581] <- callambmeattotalcon valuesmat2[i, 1582] <- baselambmeatpercapitacon valuesmat2[i, 1583] <- callambmeatpercapitacon valuesmat2[i, 1584] <- baselambmeatproduction valuesmat2[i, 1585] <- callambmeatproduction valuesmat2[i, 1586] <- baselambmeatimports valuesmat2[i, 1587] <- callambmeatimports valuesmat2[i, 1588] <- baselambmeatexports valuesmat2[i, 1589] <- callambmeatexports valuesmat2[i, 1590] <- baselambmeatbstocks valuesmat2[i, 1591] <- callambmeatbstocks valuesmat2[i, 1592] <- baselambmeatestocks valuesmat2[i, 1593] <- callambmeatestocks valuesmat2[i, 1594] <- baselambmeatcutout valuesmat2[i, 1595] <- callambmeatcutout valuesmat2[i, 1596] <- baselambmeatretail valuesmat2[i, 1597] <- callambmeatretail valuesmat2[i, 1598] <- baselambmeatchokepricecalculated valuesmat2[i, 1599] <- callambmeatchokepricecalculated valuesmat2[i, 1600] <- baselambmeatconstant valuesmat2[i, 1601] <- callambmeatconstant valuesmat2[i, 1602] <- baselambmeatconsurpluspercapita valuesmat2[i, 1603] <- callambmeatconsurpluspercapita valuesmat2[i, 1604] <- baselambmeatpopnotconsuming valuesmat2[i, 1605] <- callambmeatpopnotconsuming valuesmat2[i, 1606] <- baselambmeatconsurplusconsumingpop valuesmat2[i, 1607] <- callambmeatconsurplusconsumingpop valuesmat2[i, 1608] <- baselambmeatconsurplusforegone valuesmat2[i, 1609] <- callambmeatconsurplusforegone valuesmat2[i, 1610] <- baselambmeatconexpenditurepercapita valuesmat2[i, 1611] <- callambmeatconexpenditurepercapita valuesmat2[i, 1612] <- baselambmeatconexpendituretotal valuesmat2[i, 1613] <- callambmeatconexpendituretotal valuesmat2[i, 1614] <- baselambmeatretailproductionvalue valuesmat2[i, 1615] <- callambmeatretailproductionvalue valuesmat2[i, 1616] <- baselambmeatproducerproductionvalue valuesmat2[i, 1617] <- callambmeatproducerproductionvalue valuesmat2[i, 1618] <- baselambmeatexogenousinputcosts valuesmat2[i, 1619] <- callambmeatexogenousinputcosts valuesmat2[i, 1620] <- baselambmeatanimalcosts valuesmat2[i, 1621] <- callambmeatanimalcosts valuesmat2[i, 1622] <- baselambmeatcapitalcosts valuesmat2[i, 1623] <- callambmeatcapitalcosts valuesmat2[i, 1624] <- basepoultrymeatpopulation valuesmat2[i, 1625] <- calpoultrymeatpopulation valuesmat2[i, 1626] <- basepoultrymeattotalcon valuesmat2[i, 1627] <- calpoultrymeattotalcon valuesmat2[i, 1628] <- basepoultrymeatpercapitacon valuesmat2[i, 1629] <- calpoultrymeatpercapitacon valuesmat2[i, 1630] <- basepoultrymeatproduction valuesmat2[i, 1631] <- calpoultrymeatproduction valuesmat2[i, 1632] <- basepoultrymeatimports valuesmat2[i, 1633] <- calpoultrymeatimports valuesmat2[i, 1634] <- basepoultrymeatexports valuesmat2[i, 1635] <- calpoultrymeatexports valuesmat2[i, 1636] <- basepoultrymeatbstock valuesmat2[i, 1637] <- calpoultrymeatbstock valuesmat2[i, 1638] <- basepoultrymeatestock valuesmat2[i, 1639] <- calpoultrymeatestock valuesmat2[i, 1640] <- basepoultrymeat12 valuesmat2[i, 1641] <- calpoultrymeat12 valuesmat2[i, 1642] <- basepoultrymeatretailprice valuesmat2[i, 1643] <- calpoultrymeatretailprice valuesmat2[i, 1644] <- basepoultrymeatchokepricecalculated valuesmat2[i, 1645] <- calpoultrymeatchokepricecalculated valuesmat2[i, 1646] <- basepoultrymeatconstant valuesmat2[i, 1647] <- calpoultrymeatconstant valuesmat2[i, 1648] <- basepoultrymeatconsurpluspercapita valuesmat2[i, 1649] <- calpoultrymeatconsurpluspercapita valuesmat2[i, 1650] <- basepoultrymeatpopnotconsuming valuesmat2[i, 1651] <- calpoultrymeatpopnotconsuming valuesmat2[i, 1652] <- basepoultrymeatconsurplusconsumingpop valuesmat2[i, 1653] <- calpoultrymeatconsurplusconsumingpop valuesmat2[i, 1654] <- basepoultrymeatconsurplusforegone valuesmat2[i, 1655] <- calpoultrymeatconsurplusforegone valuesmat2[i, 1656] <- basepoultrymeatconexpenditurepercapita valuesmat2[i, 1657] <- calpoultrymeatconexpenditurepercapita valuesmat2[i, 1658] <- basepoultrymeatconexpendituretotal valuesmat2[i, 1659] <- calpoultrymeatconexpendituretotal valuesmat2[i, 1660] <- basepoultrymeatretailproductionvalue valuesmat2[i, 1661] <- calpoultrymeatretailproductionvalue valuesmat2[i, 1662] <- basepoultrymeatproducerproductionvalue valuesmat2[i, 1663] <- calpoultrymeatproducerproductionvalue valuesmat2[i, 1664] <- basepoultrymeatexogenousinputcosts valuesmat2[i, 1665] <- calpoultrymeatexogenousinputcosts valuesmat2[i, 1666] <- basepoultrymeatCGcosts valuesmat2[i, 1667] <- calpoultrymeatCGcosts valuesmat2[i, 1668] <- basepoultrymeatwheatcost valuesmat2[i, 1669] <- calpoultrymeatwheatcost valuesmat2[i, 1670] <- basepoultrymeatsoymealcosts valuesmat2[i, 1671] <- calpoultrymeatsoymealcosts valuesmat2[i, 1672] <- basepoultrymeattcapitalcosts valuesmat2[i, 1673] <- calpoultrymeattcapitalcosts valuesmat2[i, 1674] valuesmat2[i, 1675] valuesmat2[i, 1676] valuesmat2[i, 1677] valuesmat2[i, 1678] valuesmat2[i, 1679] valuesmat2[i, 1680] valuesmat2[i, 1681] valuesmat2[i, 1682] valuesmat2[i, 1683] valuesmat2[i, 1684] valuesmat2[i, 1685] valuesmat2[i, 1686] valuesmat2[i, 1687] valuesmat2[i, 1688] valuesmat2[i, 1689] valuesmat2[i, 1690] valuesmat2[i, 1691] valuesmat2[i, 1692] valuesmat2[i, 1693] valuesmat2[i, 1694] valuesmat2[i, 1695] valuesmat2[i, 1696] valuesmat2[i, 1697] valuesmat2[i, 1698] valuesmat2[i, 1699] valuesmat2[i, 1700] }